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I Think of it. No more 
typing; no more wait- 
! ing. Twenty-four hours a 
day the ANALOG Com- 
puting Telecommunications 
System (TCS) provides you with 
all of the information your Atari 
computer will ever need — 
when you need it. It's the 
perfect companion to 
ANALOG 
Computing 
magazine 




Following processing, you will 
be sent a user card and ID number 
The ANALOG Computing TCS requires an Atari 
computer and modem (disk drive optional). 

RATES: $25.00 for 20 on-line hours 

$2000 for current ANALOG Computing 

subscribers 

No extra fee, for 1200 baud users. 
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ANALOG 
Computing is 

giving away a new Atari 
520ST computer! That's riglit, one lucky TCS 
subscriber will win one of Atari's fantastic 16-bit ma- 
chines (a $599 value), just for joining the ANALOG 
Computing TCS! 

Contest rules. 
Everyone who joins the ANALOG Computing TCS 
before midnight Eastern Daylight Time, July 31 , 1985, 
will be automatically entered into a special drawing 
that will be held on August 14, 1985. 

The contest is open to all TCS subscribers with 
active accounts at the time of the drawing. ANALOG 
Computing employees are not eligible to enter 



If you're 
already a TCS 
subscriber, you don't have to 
do anything to enter If you have a friend who isn't a 
TCS subscriber yet, tell them about the giveaway! 
This drawing is our way of saying "thanks" to all 
the people who have made the ANALOG Comput- 
ing TCS a terrific success. Good luck! 

For information enjoining tlie ANALOG Comput- 
ing TCS, see tiie ad eisewliere in tliis issue. 
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Atari at Comdex 



by Jon A. Bell 



Atari Corporation was in full force at 
Comdex, held May 6lh-9th at the World 
Congress Center in Atlanta, Georgia. 
Jack Tramiel, James Copland, Sig Hart- 
mann and other Atari employees were 
there, pursuing software developers and 
computer retailers with vigor. 

At a press conference. Atari officials 
answered questions concerning both the 
XE and ST lines of computers, future 
marketing plans and current strategy. 

James Copland, Vice President of Mai-- 
keting. kicked off the conference by ex- 
plaining that "Atari decided only five 
days before the show to attend Comdex." 
He stressed that, here, Atari could court 
specific hardware/software distributors, 
software developers and mass marketers. 

Sig Hartmann, President of Software 
said that "around 2,30 companies" were 
developing software for the 8-bit XE and 
the llj-bit ST computers. When quizzed 
about software for the ST, Hartmaiin re- 
plied that he expects "over 100 pieces 
of software" to be available for STs by 
September, ST development systems for 
software companies are being shipped 
at list price, a substantial reduction from 
the original ST package price of around 
$5000. 

Per earlier announcements, the first 
STs will be shipped to user groups for 
beta testing in a week or two, BASIC and 
Logo will be included, though there are 
conflicting reports as to whether GEM 
will be on ROM or disk. The first STs 
for the public are to be shipped in July. 

Among software being developed for 
XEs and STs are spreadsheets and other 
applications programs from varied man- 
ufacturers. VIP Technologies, of Goleta, 
California has developed a package for 
the XE — VIP Professional. According to 
VIP, the Professional combines all the 
features of Lotus 1-2-3 with some addi- 
tional features, all for under $100. It can 
be mouse or keyboard driven, and uti- 
lizes icons and "drop down" menus, like 
the ST's GEM. The program is slated for 
delivery in July. 



For the ST, Haba Systems of Van Nuys, 
California offers two programs: Haba 
Works, with a series of applications — 
WORD, FILE, GALC, GI^PH, COM and 
HIPPO C COMPILER, Haba Solutions 
comes with such files as How to Start 
Your Own Business, How to Create Your 
Own Legal Will, Business Letters, Busi- 
ness Forms and the Haba Check Minder 
These programs retail for $59.95 and 
$49.95. respectively. 

In a joint announcement. Atari and 
Rising Star Industries of North Holly- 
wood, California heralded the market- 
ing of Rising Star software products for 
the ST. These are to be distributed via 
Atari's dealer/distributor network. 

The company is converting its Valdocs 
line of integrated applications for Atari 
hardware, both as a complete package 
and in individual software modules. 

Rising Star's integrated color graphics 
modules, Valdraw and Valpaint — using 
Atari's high-resolution color display — 
are marked for availability with early 
shipments of the computer. The com- 
pany's electronic spreadsheet and other 
applications are scheduled to follow 
shortly thereafter. 

In hardware news, one of the most 
amazing aruiouncements centered on 
Atari's marketing plans for the 520ST. 
Apparently, there will be two different 
versions of the ST: one for mass mar- 
keters and one for computer stores. 

Internally, the machines will be 
identical — only the machine's cosmetics 
are to be altered . The mass marketed ST 
would be in the original configuration, 
whereas the computer dealers' version 
will have a different keyboard and case. 
Computer retailers will sell as a pack- 
age the modified ST, the monitor and 
the half-megabyte drive for $799. 

As far as future projects go. Atari is 
working on a CD (compact disk) ROM, 
capable of storing over 5 megabytes of 
memory for under $500. The CD ROM 
and a new 3 '/2-inch drive are being de- 
veloped with North American Philips, 
the Netherlands-based electronics giant. 

The subject of Atari's 32-bit computer 
was not ignored by the press. Atari's ru- 



mored CAD/CAM system was referred 
to as a "graphics workstation" by Jack 
Tramiel, who said the machine should 
be out "late this year or. . .early 1981)." 

Atari officials stated that the 32-bit 
machine might run UNIX, with a secon- 
dary operating system available. The 32- 
bit machine will be sold only through 
computer stores. 

Last March, Leonm'd Tramiel told AN- 
ALOG Computing that Atari's engineers 
wanted to get several prototypes of the 
32-bit computer working specifically on 
developing chip designs for Atari equip- 
ment, including the STs. But the engi- 
neers couldn't sacrifice ST time to work 
on the 32-bit computer. Instead, they 
used an extensive amount of chip de- 
velopment and design equipment from 
the old Atari. 

And, finally. Atari's decision not to 
have a display at the Consumer Electron- 
ics Show in June had been met with 
negative publicity and rumors about the 
company's financial state. Jack Tramiel 
emphasized that Atari didn't bow out of 
CES "simply to save $500,000," but that 
Atari would be represented by a private 
press conference in Chicago. 

It should be pointed out that a num- 
ber of hardware and software companies 
(Infocom, Electronic Arts) are also not 
attending the show, but are, instead, 
having private press showings and par- 
ties to promote their products. 

Additionally, Atari officials "lack of 
comment" over the decision not to have 
a display at CES was due to said offi- 
cials' attending the Hanover, West Ger- 
many Computer Fair. 

According to sources at the fair, the 
showing of Atari's ST computers was "a 
smash." Overseas dealers and computer 
owners are reportedly ecstatic over the 
ST, citing its power, the GEM operating 
system and, most important, its cost. 

Foreign buyers who can't afford the 
Macintosh are considering the Atari ST. 
Jack Tramiel said that he intends for ful- 
ly half of all ST sales to be overseas. 

In conclusion, the message from Atari 
at Comdex was, "Today, the U.S. Tomor- 
row, the world!" D 
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You have already 
made your 
first mistake ! 

You thought that cassette recorder 
would har^dle your storage needs. 

WRONG! 

Don't make 
another one ! 

You think you need a disk drive 
to solve your storage problems. 

WRONG! 

You need 2 
disk drives ! 

Any serious application practically 
demands at least Z drives. 

Word Processing 

Spreadsheet 

Data Base Management 

Mailing List Software 

All of these are made more 
powerful and, at the same time, 
easier to use if you have two disi^ 
drives. 

5o now it will cost twice as much, 
right? 

WRONG! 

You need an Astra single or double 
density dual dish drive. Two drives 
in one low-priced unit. 

Astra Systems now has 
two new models for your 
ATARI: 




ASTRA 2001 

Single or Double Density 
Dish Drive 



■ Advanced Circuitry 
I Rotary Doors 
I Direct Drive Motors 

J 360 Kbytes 

Reliable, Quiet Operation 
rast Read /Write 
Easy Data Read 

ASTRA ''BIG D'' 

■ Double 5ided Drives 
n Single or Double Density 

Direct Drive Motors 
I 720 Kbytes 

ALL DRIVES EURMISMED WITH 
5MARTD05 0RMYD05* 

•DOUBLE 5IDED DRIVES 

Eor nearest dealer or distributor call 
(714) 549-2141 

>/^flSTRfl SVST6MS, INC. 

2500 South Eairview, Unit L 
Santa Ana, California 92704 
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READER 
COMMENT 



What was the code, and 
where are the free books? 

This letter is in three parts: 

1. You announced a contest in the Jan- 
uary 1985 issue (26) on page 90. I spent 
many frustrating hours on trying to find 
the key to the code, but without success. 
Would you please publish the answer to 
the code-cracker contest? 

2. Have you ever considered publish- 
ing an end-of-year index to your maga- 
zine? Many technical publications do, 
and it certainly aids the owners in refer- 
encing feature articles, reviews, etc. I 
started reading ANALOG Computing 
with issue 8 and many times referred to 
articles in old issues, but have some dif- 
ficulty finding them. 

3. In your February 1985 (issue 27) 
editorial, you mentioned an incentive 
for renewing membership. The promo- 
tion was for two free books, and you 
said, "If you subscribe for two or more 
years, you'll receive both books." I sent 
my check on January 6th. I did receive 
the ABCs of Atari Computers, but not the 
Atari Roots book. Could you please see 
that I get the second book? 

I am a computer programmer. After a 
hard day at die office, I take a break with 
my Atari and your magazines. Keep up 
the good work. 

Yours truly, 

Robert G. Andersen 

Glen Burnie, MD 

1. The answer fo the code cracker con- 
test is "Behind every good programmer 
there stands an Atari computer. Congra- 
tulations'." Don't feel too had; no one 
figured it out. 

2. We provided an index to articles in 
issue 15. Yes, we are considering doing 
another, updated version at (he end of 
this year 

3. Our stock of Atari Roots is now de- 
pleted. We received over 1000 subscriber 
requests per week, and the offer was on 



a "while they last" basis. We have an- 
other book, Atai'i Color Graphics to re- 
place Atari Roots. However, our offer for 
the free books is no longer in effect. 

800XL and 600XL BASIC fix. 

Most people aren't aware that 600XL 
and 800XL computers made to date have 
a defective BASIC. The problem is that, 
every time you SAVE a program, BASIC 
appends 16 useless bytes to the file, and 
this is cumulative. If you LOAD and 
SAVE a file a second time, another 16 
bytes is added. Try this; 

PRINT PEEK (43234) 

If the result is a 96, you have the defec- 
tive BASIC. Should it return a 234, you 
have the updated Revision C. This is 
only out in cartridge form; insiders at 
Atari say it's too expensive to change the 
XL assembly line to REV.C BASIC. 

This bug is serious. Many people run 
into ERROR 9, string not dimensioned, 
at the very program line where the DIM 
occurs. It's the result of the extra bytes. 
With large BASIC programs (16K or 
more), many more problems can crop 
up. The worst is computer lockup when 
editing a program in memory, or just by 
LOADing a file that has been "saved one 
time too many." How many? I can't tell 
you, but you'll know — when it happens. 

Here's a simple program that demon- 
strates the bug: 

10 PRINT FRE(0]:5AVE "D:JU 
NK":RUN "DlJUNK" 

Do this on a disk that doesn't have any 
important files. If you run this long 
enough, you'll get an out of memory er- 
ror or a "scrambled" disk. 

Atari made a REV.C cartridge avail- 
able some time ago, for $15. Since that 
time, they started giving REV.C to new 
XL owners, free of charge. Unfortunate- 
ly, it usually took several letters and irate 
phone calls to get anything done about 



it. My source tells me that Atari is out 
of REV.C cartridges at this time, and 
they don't have enough requests to justi- 
fy another production run. They claim 
that not enough people are calling to 
complain about it. If that's true, I'd like 
to know why Atari stopped answering 
their customer service line. If you do 
call, you'll only hear a recording, tell- 
ing you to take your computer back to 
the store for an in-warranty return. 

This is ludicrous. The poor consumer, 
who bought a computer to learn BASIC, 
is at tlie mercy of Atari's defective REV.B 
BASIC! A begimier will be inclined to 
believe the ERROR is because of some- 
thing he did wrong, not the computer 
itself. 

I've been programming Ataris for 4 V2 
years now, and it took me 2 weeks of in- 
tensive studying to uncover the defec- 
tive BASIC. The new ROM is available; 
I have the REV.C cartridge. It can be 
plugged into the computer in place of 
the REV.B ROM. This isn't advised for 
the average user — I'm an Electrical En- 
gineer, with 5 years' experience in com- 
puter repair. 

I urge all XL owners to write about 
this problem. Give your name, address, 
phone number and the serial number of 
your 600 or 800XL. The address is: 
Atari Customer Relations, 1312 Cross- 
man Ave., Sunnyvale, CA 94088. 

Matthew J.W. Ratcliff 

Ferguson, MO 

AUTORUN.SYS aid. 

I believe I can help Troy Goodson 
(Reader Comment, issue 29, "Problem 
Solvers"). 

On page 17 of the DOS III manual, 
there's a list of the files present on the 
master disk. One of these, HANDLERS. 
SYS, looks for and runs any AUTORUN. 
SYS files present on that disk. It will 
also boot up the 850 interface if it is 
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present and already switched on. 

Troy's problems should be over if he 
uses the COPY/APPEND function from 
the DOS III menu in transferring HAN- 
DLERS.SYS from the master disk to his 
disk, with the FMS and the AUTORUN 
file. 

Just as a matter of interest, booting 
from a disk with FMS. SYS present al- 
lows one to LOAD and SAVE in the nor- 
mal way, but going to DOS results in 
entering memo pad mode (400/800). 

SYSTEM RESET recovers, by the way 
You need, at the minimum, to have co- 
pied KCRSYS to this disk and to have 
inserted the master disk if you wish to 
use DOS. 

These two files, and HANDLERS.SYS, 
roughly equate to the DOS. SYS file on 
a DOS 2 disk. 

To reiterate. . .To run an AUTORUN. 
SYS file under DOS III, FMS.SYS and 
HANDLERS.SYS need to be present on 
that disk, also. 

Many thanks for an interesting and 
worthwhile magazine, well worth every 
penny. Long may you continue. 

Yours faithfully, 

Derryck Croker 

Sudbury U.K. 

More on Cheep Talk. 

I enjoyed the Cheep Talk article in is- 
sue 29 of your fine magazine. Having 
completed this project myself, I would 
like to offer some help to any other do- 
it-yourselfers. These ideas will both as- 
sist in obtaining parts and making as- 
sembly quicker and easier. 

The 22 pf. capacitors required for the 
project aren't available from Radio Shack 
(or many other electronics suppliers). 
Two 47 pf. capacitors [Radio Shack part 
#272-121) used in series are an ahnost 
exact substitute and are readily available. 

The joystick connectors for this pro- 
ject can be made more simply (and more 



cheaply) by using two joystick extension 
cords (Radio Shack part #276-1978). The 
cords are already assembled and do not 
require modification of the plugs in or- 
der to fit the computer. The conductor 
color coding for the pins is as follows: 
Pin 1 - Green; Pin 2 - Yellow; Pin 3 - Or- 
ange; Pin 4 - Red; Pin 5 - Brown; Pin 



THE 1-MINUTE 
LETTER!!! 



Ever not write a few letters 
because it would take too long? 

The 1-MINUTE-LETTER allows you to de- 
velop many INDIVIDUAL (not just form) 
letters — QUICKLY. You can draw from a 
self-created bank of prewritten sentences 
while writing an original letter A database 
merges more info in. 
It's more FLEXIBLE than a form letter! It's 
FASTER than a word processor! 
Write TARGETED sales letters, resumes, 
replies to repetitive inquiries, friends, and 
much more! 

FEATURES: User-friendly; menu driven; 
easy to learn; manual provided (but not 
needed); saves and prints letters, enve- 
lopes, sentences and database; editing 
capability; unprotected code; backup co- 
pies; print preview; full margin control; 
and more! 

Diskette. Needed: any Atari (48K), disk 
drive, printer BASIC. Send $29.95 (check 
or money order) TODAY to: 

Tom Sulcer 

400 E. 56th St., Apt. 6N 
New York, NY 10022 
Phone: 212-489-9161 

Money back if not fully satisfied in 60 days. 
NY residents, add sales tax. For information, 

send a self-addressed, stamped envelope. 
Atari is a registered trademark of Atari Corp. 



6 - Blue; Pin 7 - Black; Pin 8 - Gray; Pin 
9 - White. 

If these joystick extension cords are 
used, I recommend that a strain relief 
(Radio Shack part #278-1636) be used 
with each cord. 

I hope other ANALOG Computing 
readers will enjoy this project as much 
as I have. Keep up the good work, ANA- 
LOG. You are the best magazine around 
for the Atari owner. 

Sincerely, 

Anthony A. Nogas 

Plymouth, MA 



Send your letters to: 

Reader Comment 

P.O. Box 23 
Worcester. MA 01603 
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ATARI® 820 or 822 PRINTER - $39.00 

With Cable and Paper Everything you Need! 



DISK DRIVES 

New Special Edition 

$1 99.00 or $349.00 w/Happy 



Q) 



■ Reconditioned ATARI® 810 
$149.00 or $299.00 w/Happy «. 

• Happy® Compatible V 
. 1 00% Software Compatible C^ 
.120 Day Warranty <^ 

• Most Durable & Serviceable 







MADE FROM ATARI* 810 BOARDS 
AND TANDON'' MECHANISMS 



Everything for the ATARI Systems to Parts 



410 PROGRAIVI RECORDERS 
CASSETTE - $29.00 

• Star Raiders .Missle Command 

• Touch Typing .Time Wise 

• States & Capitals • 2 More Games 

All for $19.95 

800 Computer Boards 
Complete & Tested 

. Mother Board .CPU Board 

• Power Board • Ram Board 

• ROM Board 

All for $39.00 

■ Numeric Keypads w/driver $19.95 

- Disks from $1.00 each 

- UK® LETTER PERFECT or DATA PERFECT 



San Jose Computer 

1844Almaden, Rd. UnitE 

San Jose, CA 951 25 

(408) 723-2025 




YOU CAN'T TELL 

A DISK DRIVE 

BY ITS COVER!! 




WITH A HAPPY ENHANCEMENT INSTALLED THESE ARE 
THE MOST POWERFUL DISK DRIVES FOR YOUR ATARI COMPUTER 

WARP SPEED SOFTWARE DISK READING AND WRITING 500% FASTER 

HAPPY BACKUP — Easy to use backup of even the most heavily protected disks 

HAPPY COMPACTOR — Combines 8 disks into 1 disk with a menu 

WARP SPEED DOS - Improved Atari DOS 2. OS with WARP SPEED reading & writing 

SECTOR COPIER — Whole disk read, write and verify in 105 seconds 

1050 ENHANCEMENT — Supports single, 1050 double, and true double density 

810 ENHANCEMENT — Supports single density 

SPECIAL SUGGESTED RETAIL PRICE: Get the HAPPY ENHANCEMENT 810 or 1050 version with the HAPPY BACKUP PROGRAM, 
plus the multi drive HAPPY BACKUP PROGRAM, plus the HAPPY COMPACTOR PROGRAM, plus the HAPPY DRIVE DOS, plus the 
HAPPY SECTOR COPY, all with WARP DRIVE SPEED, including our diagnostic, a $350,00 value for only $249,95, for a limited time only! 
Price includes shipping by air mail to U,S,A, and Canada, Foreign orders add $10,00 and send an international money order payable through a 
U,S,A, bank, California orders add $16,25 state sales tax. Cashiers check or money order for immediate shipment from stock. Personal checks require 
2-3 weeks to clear. Cash COD available by phorne order and charges will be added. No credit card orders accepted, ENHANCEMENTS for other 
ATARI compatible drives coming soon, call for information. Specify 1050 or 810 ENHANCEMENT, all 1050s use the same ENHANCEMENT, 
Please specify -H model for all 810 disk drives purchased new after February 1982, call for help in 810 ENHANCEMENT model selection. Dealers 
now throughout the world, call for the number of the dealer closest to you, ATARI is a registered Irademark of Alari Computer Inc. 



HAPPY COMPUTERS, INC. 



P, O. Box 1268 



Morgan Hill, California 95037 



(408) 779-3830 
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NEW PRODUCTS 



LETTER-QUALITY PRINTER AT LOW COST 

The Alphapro 101 daisy wheel printer boasls fine lelter-quality type at a reasonably low 
price. The 101 prints 20 characters a second in proportional spacing, boldface, double-strike. 

reverse linefeed, superscript and sub- 
script, and has a full year warranty. 
The 101 also features a 9:i-bytc buff- 
er, expandable to 4000 bytes. The ]]rint- 
tt."'.^^^^^^^^^^^^^^^^^^^^^^mm^^ er offers selectable pilch and handles 

"•'' ^^""1^^^^^^^^^^^^^^^^^^^^"^^- paper up to 13 inches wide. Diablo- and 

Qume-compatible print wheels are in- 
terchangeable on the 101. There's also 
an Atari-compatible 101 available, pack- 
aged with a serial port adapter and in- 
structions for Atari users. 

The lOl's cost is $399.9,'5. For infor- 
mation, contact Alphacom. Inc.. 2323 
S. Bascom Ave.. Campbell. CA 9,^i008 
— (408) .559-8000. 




ATARI XL USER'S HANDBOOK 

This new book covers beginning concepts 
for the new user, explaining 
Atari BASIC, graphics, I30S 
and file handling. 

The sections include peri- 
pheral and add-on devices, 
software, computer instal- 
lation, programming con- 
cepts, using a printer, and 
PEEK and POKE locations. 
Written by the Weber Sys- 
tems, Inc. staff, 360 pages, the handbook sells 
for $15,95. From Weber Systems, Inc., 8437 
May field Road. Chesterland, OH 44020 — 
(216) 729-2858. 




"HOW TO" WIN AN ADVENTURE 

The Guidebook for Winning Adventures. 

by David and Sandy Small, delves into com- 
puter adventure gaming — how to start, map- 
ping, and how games are written. 

Most of the book's devoted 
to Infocom games: Enchanter. 
Infidel. Planetfall. and Zork 
I. II and III. Many clues are 
given for these, but \'ou need 
a code to obtain each, so the 
game can't be spoiled by "ac- 
cidentally" glancing at a jjage. 

Priced at $9.95, 353 pages. 
F'or information, call BAEN Computer Books 
— (212) 947-8244. 




HANDICARDS 

Two sturdy, slick plastic reference cards are available for Atari computers, both from Handi 
Publishing. The Handicard for the 
AtariWriter details page layout 
commands, editing commands 
and priiiting commands. Also co- 
vered are Epson printer control 
codes. 

A second card, for new Atari 
BASK!; users, covers computer op- 
erations, progranmring and data 
commands, graphics and sound, 
math and string commands, and 
an error code li,sting. These cards 
fit above the lop row of keys and 
stand upright. 

Priced at $8.95 each from Han- 
di Publishing, RO. Box 453, Ards- 
lev, NY 10502. 




OTHER NEWS 

Three new programs from Activision will 
soon be shipping — Wca/.aT: The Forgotten 
Fortress. The Great American Cross-Country 
Road Race and Countdown to Shutdown. 

Alcazar is an adventure featuring over 750 
rooms in 23 different castles. Road Race puts 
the player in realistic driving conditions re- 
quiring shifting, maintenance and quick re- 
flexes. Countdown has the player running 8 
androids, all in search of the power core in 
a huge generating plant that consists of 2000 
rooms. 

From Activision. 2350 Bayshore Frontage 
Road. Mountain View. CA 94043 — (415) 
960-0410. 



Strategic Simulations announces the re- 
lease of Computer Quarterback. Features in- 
clude real-time jjlay. semi-automated graphic 
display of offensive and defensive alignments, 
and one- or two-player modes. 

Their other new titles include Computer 
Ambusb. a World War II strategy game, and 
Knigbts of the Desert, a recreation of that 
war's North African campaign. 

Cost is $39.95 each, except Computer Am- 
bush is $59.95. Strategic Simulations. 883 
Stierlin Road. BIdg. A-200, Mountain View. 
CA 94043 — (415) 964-1353. 



Kylan Software has introduced their Pas- 
cal compiler for XL/XE computers (64K is re- 
quired). 

Features touted are a 6502 machine code 
compiler, enhanced sound and graphics, a 
built-in assembler and complete tutorial man- 
ual. DOS 2.5 is shipped with Pascal. 

Priced at $69.!)5 from Kylan Softwai-e. 1850 
Union Street #183. San Francisco. CA 94123 
— (415) 775-2923. 



Spinnaker Software's Math Busters "pre- 
sents an rmusual and vivid environment" that 
combines math practice, music and dancing 
to help children overcome their math fears. 

Written by Tom Snyder Productions (Agent 
USA and Snooper Troups). this program in- 
creases in difficulty as you become more suc- 
cessful. 

For information, contact Spinnaker Soft- 
ware. 215 First Street. Cambridge. MA 02142 
— (617) 868-4700. 
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The Latest Innovations From CDY 
At The Lowest Prices Ever! 



Crisp, perfectly legible 80 columns! 

OMNIVIEW is a means of achieving professional word processing on your 
Alari! Al one time you needed an expensive, slol consuming board to 
achieve SO columns and it was only available for the 80(). But now even you 
4(K). 6()()XLand 80()XL owners can enjoy the power and convenience of 80 
columns at a very modest price! You see, OMNIVIEW lakes advantage of 
the high resolution graphics mode already built into the ATARI to generate 
an KOcolumn screen editor essentially identical to the ATARI screen editor 
(E: S: ). This means thai OMNIVIEW will give you an SO column output in 
most environments where the 40 column E: would be used (BASIC. MAC 
65. modem programs, etc.). In addition. OMNIVIEW will work with the SO 
column versions of Letter Perfect and Data Perfect, probably the most 
popular combination of professional quality word processor and data base 
for the ATARI. Designed to be legible even on a TV set for casual use. 
OMNI view's character set looks super on a monochrome monitor or color 
monitor with separate chrominance and luminance inputs. 

But there are other features built into OMNIVIEW lo make it even more 
attractive. The4()0/S(X) version has huiit in AXLON Ramdisk handlers to 
allow you an ultra fast disk drive with almost any DOS which uses standard 
SIO calls COS. MYDOS. DOS-XL.etc.) The 60()XL/S()OXL version 
(OMNIVIEWXL)hasotheroutstandingfealureswhichaloneare worth the 
price! How many of you XL owners have cursed the translator disk from the 
day you bought your computer? OMNIVIEWXL has an enhanced 
operating system which is extremely compatible with thcold400/S00OSB. 
allowing it to run most of those programs which would not ordinarily run on 
an XL>Aithoul the translator disk! A new feature ofOMNIVILW is that it 
will allow you to copy the operating .system into RAM. freeing up the4K of 
extra user RAM and allowing even those nasty games which look for ROM 
in the SCOOO page to run! And you ATRSOOO owners will love the built in SO 
column ATRMON.allowingyou to instantly switch back and forth between 
the ATARI and C PM environments. Lastly. OMNIVIEWXL includes the 
famous F'ASTCHIP tloating point package forsignillcanlly increasing the 
speed of programs like BASIC which use Hoating point. With all of these 
features al such a modest price, don't delay. You can start enjoying the 
wonderful convenience of OMNIVIEW within a couple of days of placing 
your order! 



Feature Comparision Chart 



OMMMON 

4«i ti(X) 



Riinrud Lpiiradi^ li 

nS ftoard OMMMON i.r K 

M) SK OMNI SK VII tt 



KimnHJ-XI 

MoilXI 



Enhanced OS w/Fasi Cursor 
Includes FASTCHIPFP 
80 Columns Emuiaiion 
AXLON Ramdisk Handlers 
OMNIMON Features: 
A;Alier Memory 
B:Booi (Rami dist 
C:CPU Rcgisiers 
D:Displaj Memory 
E;Smgle Siep Execuiion 
F;Fill Program Buffer 
C:Bmary Load Directory 
H:He\ Conversion 
H:He\ Ariihmeiic 
LInMall Ramdist Handlers 
J;ItimpSt;brouime (JSR) 
l.:Drnv Selection tontrol 
M.Mo^t Block of Memory 
N;Rclo.-aic 650: Code 
0;Opetate from Program Buffer 
P;Prinier Control 
R.Kead Sectorls) from Disk 
S.Si-aich Memory (or Sequence 
I toggle Hc\ Ciiai Duplav Mod-.- 
I I ser\ fuMLim Commai.d 
\ \cr(1\ : liloikv 01 Memorv 
tt Write Vctor^^Mo Disk 
\ Diva.vcmhlc Mcmofs 



\ hr 



mbler 



/ Lsii Monit.u 

I vivkup Rccosers 

Redirection ot I'tintct 1 

Idlk 1,1 Happi Ham Biillei 

H(I C.ilumn ATRMON t..r ATRKOtXi 



How To Order 

Add $2.00 for shipping ($4.00 for 2 day delivery). We accept money orders, 
checks (allow 2 weeks to clear) and credit cards (Visa and MC) We prefer to send 
to send COD (cash or MO) and will gladly pay the shipping and COD charges. 
If you have any questions please call us. We would love to talk to you! 



Incredibly powerful debugging monitor! 

OMNIMON is a ROM resident extension of the ATARI operating system 
which adds a new dimension to your machine! In the hands of a novice 
programmer it is a wonderful learning tool fordiscovering the many secrets 
ofyour ATARI. And the more you learn, the more OMNIMON has to offer, 
so that experts llnd it indispensible foritspowerandconvenience.lt installs 
permanently and gives you complete control over your computer, and even 
though it is always available (by pressing SELECT and SYSTEM RESET), 
it takes up no user memory because it resides in the unused 4K block at 
$CO(K). Use it to interrupt, examine, and manipulate any program in 
memory whether it bedisk. cassette, or cartridge based. It is especially good 
for program development or customization of existing programs. The 
llexible disk I/O allows you to write to or read from disk in either single or 
double density so that you can edit raw sector data or even load a file without 
DOS. Many debugging tools are at your disposal; Display/Alter memory or 
(S502 registers. Disassemble memory. Search memory. Hex/Char modes. 
Single Step execution. JSR or GOTO address. Push/Pull stack. Printer 
dump. etc. A toggle switch allows you to make OMNIMON invisible to 
games which might be looking for it. making it compatible with all 
software. 

If all of this power weren't enough, certain versions of OMNIMON have 
even more features! The SK OMNIMON and OMNIMONXL have Hex 
t (inversion and Hex Arithmetic. Block Move, a Relocator. and a Line 
Assembler. A Binary Load command allows you lo load any binary load file 
without DOS and doubles as adiskdireetorycommand which prints out the 
start sector of each file. Lockup recovery allows you to recover from system 
lockup, meaning that when your computer free/-e.s. you can usually salvage 
liie program or text file in memory by popping into OMNIMON and 
dumping memory to disk. Advanced users will like the user extendibility 
feature which allows them lo make use of the interface routines of 8K 
OMNIMON in their own software. The SK OMNIMON also has resident 
AXLON Ramdisk handlers, allowing you to u.se this powerful device as an 
ultra fasulisk drive with almost any DOS which uses standard SIO calls and 
e\en hoot programs like word processors, data bases, and games which 
access the disk a lot. Once you have an OMNIMON in your system, you will 
■Aonder how you ever did without it! 

Pricing 

4(H)/H(MI: Figg\h;iuk tionrcl pkigs into existing OS board, inexpensive and easily 
disahled, ' 

OMNIMON piggyhack board $69,95 

OMNIMON piggyboard& OMN!Vlt:W S94.95 

OMNIMON piggyback hoard & KK OMNIVIEW S109.95 

OMNIMON piggyback board &. UK OMNIMON $109.95 

Add l-ASl t HIP lloating point lo any oflhe above SI5.(M) 

I- ASIC HIP floating point package by it.selt" $19.95 

OMNIVII-W lor piggyback or Ramrod OS board $29.95 

SK OMNIVIEW or UK OMNIMON for piggyback or Ramrod $44.95 

S(M):Ramrod OS board replaces existing OS board and comes with enhanced OS in 
r-PROMs. It has 2 sockets lor OMNIMON/OMNI VIEW enhancements which can 
he selected with a switch. 

Ramrod OS i*; OMNIVIEW $124.95 

Ramrod OS ik SK OMNIVIEW SI39.95 

Ramrod OS & XK OMNIMON $1.19.95 

Ramrod OS & SK OMNIMON & OMNIVIEW S1M.95 

Add EASTC HIP lloaiing point lo any of the above SI5.(H) 

6()0XL:1 he supplied ROM replaces existing OS chip on mother board. 

OMNIVIEWXL (includes FASTCHIP and S(K) compatible OS) $59.95 

S(K)XL: Replace existing OS chip or add Ramrod XL to select between 3 possible 
OSs, 

OMNIVIEW (includes FASTCHIP and S(H)compaliblc OS) S59.95 

Ramrod XL & OMNIMONXL (includes FASTCHIP and SIM) compatible OS) 

$99.95 
Ramnxi XL & OMNIMONXL & OMNIVUAVXL (i.e.. combination of all above) 

SI 44.95 

Other fine products: 

UK Letter Perfect or Data Perfect $69.95 

OSS BASIC XL, MAC 65 or ACTION $69.95 

OSS BASIC XL, MAC 65 or ACTION tool kit S34.95 

Monochrome monitor adaptor for 4tM> (perfect for OMNIVTEW) $29.95 

AXLON Rampower 1 28 (Ramdisk) $249.95 



CDY Consulting 

421 Hanbee 

Richardson, TX 75080 

(214)235-2146 

DEALERS INQUIRIES SOLICITED 
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GRIFFIN'S 
LAIR 



Educational Programs 
Review 




by Braden E. Griffin, M.D. 

All right, class, sit up straight and pay 
attention. We're going to discuss geog- 
raphy. Ugh! Bor-ing. But yes, geography. 
It is important, you know. But, first, a 
few anecdotes to underscore the depth 
of knowledge currently maintained by 
the majority of our citizenry. 

I hail from West Virginia. I realize that 
this is less than a big deal, but that's the 
fact, Jack. Mentioning this usually elicits 
a remark about shoes, then a "Gee, I 
know somebody from [Richmond." Rich- 
mond? Richmond?.' For Jerry West's sake 
(a common Mountaineer epithet), that's 
in Vii'ginia. 

During my years in Colorado and Ar- 
izona, the discussions of my origins, re- 
ferred to as "Back East," would often 
give rise to remarks like "I have an un- 
cle in Michigan." Michigan? Sure, I 
know him. We're practically neighbors. 

Bostonians give new meaning to the 
word provincial. (They also give new 
meaning to the word basketball. ) There 
is a story told of a very proper Boston 
Brahmin matron, who, upon learning 



that a guest at her dinner party was from 
Ohio, replied, "Heahh, we pronounce it 
Iowa ." 

Had enough? No? How many people 
know the capital of New Mexico? Not to 
worry, if you can't spell Albuquerque, 
'cause that ain't it. How about Oregon? 
It has to be Portland. . .or, maybe, Eu- 
gene? Yes, Charleston is a state capital, 
but it's a fer (sic) reach to Myrtle Beach. 
You may remember that Pierre is a cap- 
ital city, but of which Dakota, East or 
West? 

It would be your fault if you bought 
beachfront property in Nevada, unless 
another fault preempts. A six-pack of 
Molson's for all you Americans who can 
name the Capital of Canada without 
looking. You know Canada — that large 
country just north of us. Of all the in- 
habitants of the Americas, we have the 
gall to assume the unique title, "Ameri- 
cans." We go beyond arrogance. I think 
the word is hubris. 

Get the point? I don't think it rmrea- 
sonable for someone to know what states 
one would pass through to go from Tex- 
as to North Dakota, or Detroit to Miami. 
Someday, one may need to know just 



where Cleveland is. . . if only to avoid it. 
Just kidding. How 'bout them Cavs? 

The program reviewed this month 
provides an entertaining way to explore 
the continental U.S. while enhancing 
many other learning skills. 

AGENT USA 

Tom Snyder Productions, Inc. 

SCHOLASTIC WIZWARE 

906 Sylvan Avenue 

P.O. Box 2010 

Englewood Cliffs, NJ 07632 

48K Disk $29.95 

Readers familiar with Tom Snyder's 
contributions to the field of education- 
al software, which entertain and enlight- 
en children, will not be disappointed by 
this clever, creative package for children 
ages nine and up. This game encoui"ages 
the development of an organized ap- 
proach to a problem, using a combina- 
tion of factual information and logical 
thinking. 

The excitement of the game itself pro- 
vides more than enough initiative to get 
kids started playing, while the challenge 
and, occasionally, the frustration will 
hold their attention. 
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GRIFFIN'S LAIR continued 



Agent USA is the good guy. And just 
guess who gets to be this super sleuth 
from the Central Intelligence Bureau? 
Right again, 007. What is the menace 
that threatens our very existence and 
"the American way of Ufe?" No, it's not 
Prince. . .nor Andy Rooney. 

It's the evil FuzzBomb, created when 
one of a dozen alien crystals was placed 
inside a TV set. This electromagnetic 
mutant has the power to change people 
into FuzzBodies, mindless emissaries of 
static chaos with destructive powers of 
their own. I wonder, could the sight of 
dazed, red-eyed youths leaving a video 
arcade have been responsible for the 
game concept? Or maybe MTV? I know, 
the 700 Club. Get it? 700. . .007 Well, 
maybe. 

With the citizens of our great democ- 
racy in peril as the FuzzBomb goes from 
city to city. Agent USA must find and 
destroy this technologic terror, before it's 
too late. (Another cliche. . .a relapse?) 

The only protection against the Fuzz 
creatures is found in the very same crys- 
tals responsible for this Armageddon. 
The player begins the game with ten 
crystals which, if touched, turn a Fuzz- 
Body back into a normal person. 

Extra crystals can be grown by plant- 
ing them and waiting for them to mul- 
tiply. It is not only necessary to have an 
ample supply of crystals to rescue the 
"fuzzed," but the maximum supply of 
one hundred crystals is required to dis- 
arm the FuzzBomb. 



ASTRA 

Double Disk Drives 




INCLUDES DOS 

8lg "D" Double Sided . $595.00 

2001 Two Drive $495.00 

1620 Two Drive $349.00 

1620 quantities are limited. 



ADD $10.00 DELIVERY 
MASTERCARD / VISA 

THE PROGRAMMERS WORKSHOP 

CALIFORNIA (714)796-6821 

OUTSIDE CA (800) 228-6821 



If touched by a FuzzBody, one-half of 
the crystal supply is taken away. If the 
supply is totally depleted, whether by 
the FuzzBomb or its henchmen. Agent 
USA turns into a FuzzBody, and only 
the slim hope of an unfuzzed citizen 
coming to the rescue remains. 



KAMSAS CITV, HO 
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Agent USA. 

There is lots of excitement in grow- 
ing crystals quickly, zapping FuzzBodies 
and trying to fortify a town with addi- 
tional crystals. However, the real chal- 
lenge is tracking the FuzzBomb down 
with gathered clues and the railway 
system. 

InfoBooths are found only in state 
capitals and Washington, DC. Here, a 
computer terminal that's linked with CIB 
headquarters provides information relat- 
ing to the number of crystals fortifying 
a particular city, the FuzzBomb's exact 
location, and a prediction map, which 
shows "fuzzed over" cities and the likely 
direction of the spread. 

The train travels to all the state capi- 
tals and many other major U.S. cities. 
Tickets are obtained at a ticket booth 
(did you think it would be the bakery?], 
where a train schedule appears on the 
screen. After one has selected and typed 
in a destination, a ticket for that train 
is issued. 

A continuous display of the time is al- 
ways on the screen. Trains arrive at the 
station every few minutes. When the 
right one comes along at the right time, 
it is boarded. Once the time required for 
that particular trip has elapsed , thanks 
to a speeded up computer clock, one 
detrains at the depot (doffing one's derby 
to Darling Dora with the dazzling dia- 
mond D dangling from her dainty, dim- 
pled neck). Care must be taken at the 
train stations, since FuzzBodies may be 
using this mode of transportation, and 
bumping into them is worse than being 
without Certs. 

Now, it might seem pretty simple to 



go to an InfoBooth, find out where the 
FuzzBomb is, then get a ticket to that 
city and waste the sucker. Not so. Wher- 
ever one happens to start from, the city 
is connected by train only to those cities 
surrounding it. 

There is no train directly from Mobile 
to Denver. And , although there are a few 
"rocket trains," which travel long dis- 
tances very quickly, most of one's travel 
will be by the local, slower trains. A 
knowledge of a city's location within a 
state is necessary for efficient travel. If 
one wants to go to Wilmington, Dela- 
ware from Syracuse, New York, it's im- 
portant to know if the train to Buffalo, 
Albany or Rochester is most appropriate. 

Sounds kind of like real travel . Agent 
USA just arrived in Ohio and wants to 
know where the FuzzBomb is. Let's see. 
InfoBooths are located in state capitals. 
Ohio. . .hmmm. Toledo? Akron? Cin- 
cinnati? Hello, Columbus! 

Success with Agent USA requires the 
player to organize activities as they re- 
late to train schedules and the logistics 
of ongoing events. While accomplishing 
the task of travel, one must prepare and 
plan for confrontations with the enemy, 
by growing crystals and fortifying cities. 
These are important skills to develop, 
and Agent USA does it imder cover of 
fun and excitement. 

This extremely well-designed and ac- 
curate game package includes an Infor- 
mation File and U.S. map, that shows 
major cities and state capitals on the 
train route. The ability to trace train 
routes on the map, then wipe it clean 
adds a nice touch. 

Those becoming expert in Agent USA 
should consider a career with the Cen- 
ter for Disease Control (CDC) in Atlan- 
ta. I bet epidemiologists have nightmares 
like this game. That's where the idea 
came from ... a virulent, extraterrestrial 
organism capable of turning men and 
women alike into indistinguishable mis- 
creants. . .The Androgynous Strain. D 

Dr. Griffin, as Chief of Newborn Medi- 
cine at a perinatal center, spends most 
of his time in the nevvborn intensive care 
ward. 0//-hours, he's been using an 
Atari 800 /or /our years. ANALOG Com- 
puting magazine is almost entirely sub- 
sidized by Dr. Griffin's health insurance 
reimbursement, /or providing psycho- 
therapy through writing — to cure his 
unbelievable attraction to cliches. 
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MAGNIPRINT II 
ALPHA SYSTEMS 
4435 Maplepark Road 
Stow, OH 44224 
(216) 374-7469 
48K $24.95 



by Frederick D. Oldfield 

Magniprint II is one of the programs 
responsible for tlie dreaded love-hate re- 
lationship all too familiar to computer- 
ists. 

I really wanted to love this program. 
After all, it promised to provide a prin- 
tout of all my graphic inasterpieces. It 
does. Whether you use Micro-Painter, 
Micro-Illustrator, Paint, Fun With Art, 
B/Graph, Graphic Master, Strip Poker, 
Super Sketch, Movie Maker, Graphics 
Magician or the Atari Light Pen, this 
program allows you to make printouts. 

In fact, you can even make prints of 
screens created with yom- own or maga- 
zine programs, such as Magic Palette 
from ANALOG Computing's issue 26. 
There's a special screen save routine to 
add to these programs. The file thus 
saved can then be used by M-II. 

A similar process is performed on 
some or all of the commercial programs. 
Their picture files are converted to a 
kind usable by M-II. Therein lies the 
first problem: in order to print a screen, 
M-II must be able to access and use files 
in which screen data is stored. 

One of my favorite graphics programs. 
The Alog Displaymaker, isn't included 
in the list of covered programs and, as 
it's written in FORTH, I can't add the 
BASIC routine to save compatible files. 
Displaymaker does have its own print- 
er dump routines, but they're not as ver- 
satile as M-II's. 

With M-II, you can get a quick print- 
out in normal or inverse print. This is 
a sideways print approximately 'A page 
in size. You can also print in normal or 
sideways formats in up to eiglit different 
sizes, or you may choose three different 
poster sizes. Posters are printed in sec- 
tions and must be glued or taped to- 
gether. 

Another great feature is the ability to 




Magniprint II. 



add text to most screen files. The prob- 
lem: text position must be indicated 
with the joystick, and there are no con- 
trols for centering or undoing a letter — 
except to erase it by deletion, which also 
deletes whatever was on the underlying 
design. While you may use inverse and 
even graphics characters, you can only 
print in one size. 

There's a "touch-up" feature, but I 
found it difficult to use and was unable 
to match the background shade I was 
trying to replace. 

M-Il has a featirre to let you view your 
screen in a different graphics format. A 
graphics 9 screen can be viewed or even 
printed as a graphics 8, and vice versa. 



Even a graphics 10 screen can be viewed 
and/or printed in graphics 9 or 8. (The 
text adding feature is only available in 
graphics 8, so these conversions come 
in handy] In fact, M-II is supposed to 
be able to provide a printer dump for all 
Atari graphics modes except text modes 
1 and 2. Even normal graphics can be 
dumped. I haven't tried any graphics 
modes other than 7.5, 8, 9, and 10. 

So why does this program also rouse 
in me feelings of hatred? M-II comes 
with a simple but seemingly complete 
manual of twenty or so pages. The man- 
ual gives you the feeling that you'll have 
no problems making the program work. 
Unfortunately, it isn't quite true. 
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Software Discounters r 


— 


-^^ 




of America (& peripherals, too!) V 


S.D. of A, ) 




Orders Outside PA— 1-800-225-7638 


""^ 


^r'"'"'^'^ 




PA Orders - 


- 1-800-223-7784 








Customer Service 412-361-5291 










• Free Shipping on orders over $100 in continental USA 






• No surcharge for VISA/Mastercard 










•Your card is not charged until we ship 








Our 1st Annual Christmas in July 


Sale!!! 




ACCESS 


Pole Position (D) . . . .$19 


Letter Perfect (D). 


$49 


Tigers in Snow (D) . 


$26 


Beach Head(D) $23 


Sands of Egypt (D) . .$17 


Spell Perfect (D) . . 


$29 


War in Russia(D). . . 


.$53 


ACTIVISION 


The Goon ies Get In Line 


LEARNING COMPANY 


SCARBOROUGH 




Decathalon(R) $17 


Zaxxon{D) $19 


Bumble Games (D) 


$23 


Mastertype(D) 


$23 


Designer's Pencil (R) $17 


DESIGNWARE 


Colorasaurus(D) . . . 


$19 


MastertypeIR) 


$26 


Ghostbuslers(D)- , . -$21 


Creature Creator (D) .$19 


Magic Spells (D) . . 


$23 


Net Worth (0) 


$49 


Pitlall2(R) ....$17 


Crypto Cube (01 $25 


Moplown Hotel (D) . 


$26 


SIERRA ON LINE 




Space Shullle(R) . . .$19 


Math Maze(D) $25 


Moplown Parade (D) 


$26 


Dark Crystal (01 ... 


.$25 


ARTWOBX 


Spellicopter(D) $25 


Word Spinner(D). . . 


$23 


Homeword (D) 


$33 


Bridge 4.0 (TorDI ... .$18 


Trap-A-Zoid(D) $25 


MICRO-LEAGUE 




Ultimal (D) 


$23 


Compubridge(D) $18 


ELECTRONIC ARTS 


SPORTS 




Ullimall(D) 


$39 


French(D) $19 


Archon II (D| $23 


Micro-League 




Wizard & Princess (D)$19 | 


German (D) $19 


AxisAssasin(D) . . . .$12 


Baseball (D) 


$26 


WizType(D) 


$23 1 


Ghostcriaser(D) ... .$16 


Cuts. Paste WP(D) . .$19 


MICROPROSE 




SPINNAKER 




Italian (D) $19 


Financial 


Crusade Europe (D). 


$26 


Adventure Creator (R)$17 | 


Monkeymatn(D) . . . .$17 


Cookbook(D) $29 


Decision in the 




Aerobics (D) 


$23 


Monkeynews(D) . . . .$17 


Hard Hat Mack (D) . . .$17 


Desert (D) 


$26 


Alphabet Zoo{R) . . 


$17 


Slap Shot Hockey (D) $16 


Murder on the 


F-lSStrike Eagle(D) 


$21 


Delta Drawing (R) . 


$17 


Strip Poker(D) $21 


2inderneu((D) . . . .$19 


Kennedy Approach (D)$23 


Pacemaker (R) 


$17 




Female Data Disk #1 .$16 


Music Construction 


Spitfire Ace (D) 


$19 


Fraction Fever(R) . . 


.$17 


Female Data Disk #2. $16 


Set(D) $19 


MINDSCAPE 




Kids on Keys(R) . . . 


.$17 


Male Data Disk $16 


One-on-One(D) $25 


Bank St. 




Kindercomp(R) .... 


$17 


AVALON HILL 


Pinball Construction 


Musicwriter(D). . . 


$33 


Math Busters (D) . . . 


$19 


B-1 Nuclear 


Sel(D) $19 


Crossword Magic (D) 
Halley Project: Missi 


$33 


Most Amazing 




Bomber (D) $16 


Realm of 


Dn in 


Thing (D| 


$19 


Computer Stocks & 


Impossibility (D) . .$19 


our Solar System(D) $29 


Snooper Troops 




Bonds (D) $19 


Seven Cities Gold (D) $25 


Tinka's Mazes (D) . . . 


$17 


1 or 2(D) 


$19 


Jupiter Mission 


EPYX 


Tink's Adventure (D). 


$17 


Story Machine (R) . . 


$17 


1999(D) -$33 


Ballblazer(D) $26 


TukGoes to Town (D). $17 


Trains (D) 


$19 


Legionnaire (D) $21 


Gateway Apshai (R) .$19 


MUSE 




SUBLOGIC 




Maxwell Manor (D) . .$19 


Jumpman(D) $16 


Beyond Castle 




Flight Simulator 11(0) $33 | 


Quest Space 


Jumpman Jr (R) $16 


Wolfenstein(D) . . 


.$23 


Night Mission 




Beagle(D) $23 


Pitstop(R) $19 


Castle Wolfenstein(D)$19 


Pinball (D) 


.$21 


T.A.C.(D) $27 


Puzzlepanic(D) $19 


OSS 




SYNAPSE 




Telenguard(D) $21 

BATTERIES INCLUDED 


Summer Games (D). .$25 
Temple Apshai (D). . .$19 


Action (R) 

Action Tool Kit(D) . . 


$59 
.$26 


Alley Cat (0) 


$17 


Blue Max 2001 (D) . . 


$19 


HomePak{D) $33 


•Buy 2 Epyx titles 


Basic XL (R) 


$49 


Electronic Novels . 


Call 


BIG FIVE 


& receive 


Basic XL Tool Kit (0) 


.$26 


Encounter (D) 


.$17 


Bounty Bob's Adv. (R)$29 


Puzzlepanic free 


DOS XL w/Bug 65(D) 


$26 


Quasimodo (D) .... 


$17 


Miner 2049'er(R) $9 


FIRST STAR 


MAC;65(R) 


$59 


Syn-Calc(D) 


$35 


BRODERBOND 


Spy vsSpy(D) $19 


MAC/65 Tool Kit(D) . 


$26 


Syn-Chron(D) 


$26 


Arcade Machine (D) .$39 


FISHER PRICE 


Writers Tool 




Syn-Comm(D) 


$26 


Bank SI. Writer (D) . .$43 


Dance Fantasy (R). . .$17 


w/Spell Checker (R) $59 


Syn-File(D) 


.$35 


Loderunner(D) $23 


Linking Logic (R). . . .$17 


OMNITRED 




Syn-Stock(D) 


$26 


Mask ol Sun (D) $25 


Memory Manor (R) ..$17 


Universe (D) 


Call 


Syn-Trend(O) 


$26 


Operation 


GAMESTAR 


ORIGIN 




TIMEWORKS 




Whirlwind(D) $25 


Star Bowl 


Ultima III (D) 


$39 


Data Manager(D) . . 


.$17 


Prmt Shop(D) $29 


Football (TorDI . . .$21 


PROFESSIONAL 




Electronic 




Print Shop 


Star League 


SOFTWARE 




Checkbook (D). . . 


$17 


Paper Refill $14 


Baseball (TorD) . . .$21 


Trivia Fever (D) 


$25 


Money Manager (D) . 


$17 


Spelunker(D) $21 


HBJ 


SSI 




TRONIX 




Whistler's Brother (D)$19 


Computer SAT (D| . . . $49 


Battle Normandy (D) 


$26 


Pokersam(D) 


.$17 


CBS 


INFOCOM 


Breakthrough in 




S.A.M.(D) 


.$39 


Astro Grover(D) ... .$23 


Cutthroats (D) $23 


Ardennes (D) .... 


$39 






Big Bird's 


Deadline (D) $29 


Broadsides (D) 


$26 


ACCESSORIES 




Funhouse{R) $23 


Enchanter(D) $23 


Carrier Force (D) .... 


.$39 


Ape Face Printer 




Big Bird's 


Infidel (D) $27 


Combat Leader (D) . . 


$26 


Interface 


$49 


Spc. Del.(R) $17 


Hitchhiker's Guide 


Computer Ambush (D)$39 


BASFSS.DD .. .$14bx | 


Dr. Seuss Puzzle (D) .$21 


to the Galaxy (D) . .$23 


Computer Baseball(D) $26 


BASFDS.DD . . . .$19bx | 


Ernie'sShapes(R). . .$17 


Invisiclues Call 


Computer QB 


Call 


CompuServe Starter 




Match Wits (D) $19 


Planetfall(D) $23 


Cosmic Balance (D) 


$26 


Kit(5hrs.) 


$23 


Math Mileage (R) ... $19 


Seastalker(D) $23 


Cosmic Balance II (D)$26 


Digital Devices A16 




Success w/Math Call 


Sorcerer (D) $26 


Eagles(D) 


$26 


Printer Int. w/16K 




Webster Word 


Starcross(D) $29 


Epidemic (D) 


$23 


Buffer 


$89 


Game(R) $19 


Suspect (D) $29 


Field of Fire(D) .... 


$26 


Disk Case (Holds 50) 


$9 


CONTINENTAL 


Suspended (D) $29 


50 Mission Crush (D) 


$26 


Disk Drive Cleaner . 


. $9 


Financial 


Witness(D) $23 


Fortress (D) 


$23 


Full Stroke Replacement | 


Strategies (D) .$29 


Zork 1(D) $23 


Galactic Adv. (D) . . . 


$39 


Keyboard AT 400. 


$49 1 


Home Accountant (D)$44 


Zork2or3(D) $26 


Imperium 




Generic Disks ...Cheap | 


Book Adv. Games (D) $16 


KOALA 


Galactum(D) .... 


$26 


Indus GT Disk Drive 


Call 


DATASOFT 


Coloring Series 1 (D). .$9 


Kamptgruppe(D). . . 


$39 


MPP1000E Microbit: 




Bruce Lee (D) $23 


Coloring Series 2(D). .$9 


Knights of Desert (D) $26 


fvlodem 


$87 


Conan(D) $23 


Instant Programmers 


Objective Kursk (D|. 


$26 


Microbits Microprin 




Dallas Quest (D) . . . . $23 


Guide (D) $9 


Operation Market 




Interface 


$39 


Dig Dug(D) $17 


Spider Eater (D) $9 


Garden (D) 


Call 


Microbits MPP1150 




Lost Tomb (D) $19 


Tablet w;Painler(D) .$29 


Questron (D) 


$33 


Printer Interface . 


$54 


PacMan(D) $17 


LJK 


Rails West (D) 


$26 


Rana 1000 Disk Drive 


$175 


Pole Position (D) . . . .$17 


Data Perfect (D) $49 


Reforqer '88(0) . . . 


$39 


Wico Boss 


$12 


P.O. BOX278— DEFT. AN 


• WILDWOOD, 


PA 15091 




'Ordering and Terms: Orders with cashier check or 


money order shipped 


immediately. Personal/company 1 


checks, allow 3 weeks clearance. No C.O.D's, Shipping: Continental U.S.A.— 


Orders under $100 add $3; 1 


free shipping on orders over $100. PA residents add 6% sales tax, AK. HI, 


FPO-APO — add $5 on all orders. | 


Sorfy--no International c 


rders Defective merchan 


iise will be replacec 


with 


same merchandise. 


Other 1 


returns subject to a 15% 


restocking charge — NO CREDITS! Return must have 


authorization numbe 


(412)1 


361-5291 Prices sub[ect 










1 






CIRCLE ^/106 ON READER SERVICE CARD | 



p 



Review 



■* continued 



First, for all of the slow, detailed print- 
ing, the M-II program disk must be in 
drive 1. I don't remember reading that 
anywhere, and there's no prompt on 
screen. If you inake an error and don't 
have the right disk in the drive, you may 
or may not lose the screen you're work- 
ing on. In any case, you're usually giv- 
en no clue of what the problem is. 

Error trapping is reasonably good , but 
imperfect. Another annoyance is the ciu'- 
sor used in the program. It's extremely 
small and often difficult to see. 

Switching graphics modes is accom- 
plished by pressing the ESCape key. 
Other than the difference in screens, 
there's no indication of what graphics 
mode you are in. This is probably nol 
a serious problem — it's more of a psy- 
chological problem. It makes me feel 
less confident about what I'm trying to 
do. 

Maybe that's my real gripe with M-II. 
Its power is obvious, its features many, 
but I feel somewhat overwhelmed. This 
isn't a program you'll master in a day or 
two. Sure, you can use it almost imme- 
diately, but it will take time and prac- 
tice to exploit its full potential. 

Along with the main program, you 
also get Print All, which will allow you 
to print your BASIC listings with all in- 
verse and graphics characters. 

The manual does include some trou- 
bleshooting information and a reference 
sheet of available options. The disk is 
copy-protected but, in addition to a 90- 
day warranty period on the media. Al- 
pha Systems will replace a defective 
disk for $6.50. Not as convenient as be- 
ing able to make your own back-ups 
(and with the heavy use the disk gets in 
printing, this would have been a good 
idea), but at least the replacement isn't 
too expensive. 

If you're prepared to experiment and 
take the time to master the program, 
Magniprint 11 is a versatile and power- 
ful program which will meet most, if not 
all your printout needs. At $20.95, the 
price is hard to beat. D 

Fred Old/ield, an instructor in Ihe 
retraining department of Mohawk Col- 
lege, purchased his first Atari in 1981. 
It has become a workhorse, producing 
neivsletters, mailing lists, course ninferi- 
als, class records and articles. 
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DOS III to DOS 2 Converter 




by Matthew Jones 



Until recently, I was working for Atari International 
in the U.K. as a Product Support Specialist. You un- 
doubtedly know that product support was one of the 
departments to go in the Tramiel takeover. 

A week before it happened, I was asked by a disk 
user how to transfer DOS III files to DOS 2. DOS III 
comes complete with a program to enable users to 
access DOS 2 programs, but not vice versa. So, with 
time on my hands, I've written a program for this 
purpose, which I call Access III. 

The listings and disk files for Access III will trans- 
fer any DOS III file to DOS 2 (accepting limitations 
of single-density disk space], making more than one 
pass if necessary. 

Using Access ill. 

Operation of the program is essentially very sim- 
ple. DOS 2 must be iDOoted, then Access III is LOAD- 
ed, using L from the DOS menu. The program will 
RUN automatically. 

The user will be asked to input the filename to be 



transferred. Only "legal" letters and numbers are ac- 
cepted, and RETURN enters the name. You are then 
asked to insert the DOS III disk, and, after RETURN 
is pressed, the disk will be checked to ensure it is 
DOS III, after which the dictionary will be searched. 
If the file isn't found, the user will be told and asked 
for a DOS III disk again. 

This will be repeated until either the correct disk 
is inserted when the file will be loaded, or the user 
presses DELETE. Pressing DELETE restarts the proc- 
ess, at whatever stage the program, and this is indi- 
cated in the message given in response to pressing 
the HELP or INVERSE VIDEO (LGO) keys. 

The next stage is the saving of the file, which is 
preceded by a check to ensure that the disk has been 
changed to DOS 2. Standard CIO calls are used to 
save the data, so Access III could be used with an- 
other compatible DOS (even "true" double density], 
to access DOS III files. 

If the file is too large for memory, more than one 
pass is made to complete the operation. It should be 
noted that Access III does not check the disk on the 
second time aromid for the filename, so inserting the 
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Access III continued 



wrong disk of the correct DOS type would cause an 
error which would make the program restart. This 
was not considered to be a serious problem, as there 
is no chance of destroying the original, and the user 
will always be notified of such an error. 

After the file has been transferred, the user is asked 
if there is more to transfer. If the answer is no, the 
program exits via the warmstart vector. 

Two smaller points about Access III . . . Holding 
START will speed up the title routine. Holding all 
three CONSOL keys down exits through WARMSV, 
to end the program. 

Access III was written with Atari's Macro Assem- 
bler, to run on any Atari computer of at least 32K, 
and I've converted the final object code to your stan- 
dard BASIC binary file-creating program format. D 

After starting machine code computing in 1979 using 
hex keypads, Matthew Jones was technical manager 
of Efficient Chips fan Atari deaJerJ, Jater moving to 
Atari International be/ore freelancing. He has writ- 
ten ViewTerm, a viewdata terminal program, and is 
now on a research project at the University of Bath. 

Listing 1. 
BASIC listing. 

10 REM *** ftCCE55 DOS III *** 

30 TRAP 40eoe:DATa 0,1,2,3,4,5,6,7,8,9 

,0,0,0,0,0.0,0,10,11,12,13,14,15 

40 DIM DATS C91), HEX C22) : FOR K=0 TO 22: 

READ H:HEKCXJ=M:HEKT K : LIME=9S0 :RESTOR 

E leOOrTRAP 120:? "CHECKIHG DATA" 

50 LIME=LIHE+10:? "LIME : ";LIHE :READ DA 

TS:IF LEMCDAT5JO90 THEH 220 

60 DATLIM=PEEKC183)+PEEKC184>»256:IF D 

ATLIMOLIME THEN ? "LIKE ";LIME;" MI55 

ING!":END 

70 FOR K=l TO 89 STEP 2 : D1=ASC CDATS tX> 

) -48 : D2=ASC CDATS CX+1) ) -48 : BYTE=HEX CDl J 

«16+HEX(D2) 

80 IF PASS=2 THEN PUT ttl, BYTE : NEXT X:R 

EAD CHKSUM:GOTO 50 

90 TOTAL=TOTAL+BYTE:IF T0TAL>999 THEN 

T0TAL=T0TAL-1000 

100 NEXT X:READ CHKSUM:IF TOTAL=CHKSUM 

THEN 50 
110 GOTO 220 

120 IF PEEK (195) <>6 THEH 220 
130 IF PASS=0 THEN 180 
150 PUT ttl, 224: PUT ttl , 2 : PUT ttl, 225: PUT 

ttl,2:PUT «1,22:PUT ttl,32:CL0SE ttl:END 
160 FOR X=l TO 90:PUT ttl,e:NEXT X:CL05 
E ttl: END 

180 ? "INSERT DISK WITH DOS, PRESS RET 
URN";:DIM IN$(1):INPUT IN5:0PEN ttl, 8,0 
,"D:AUTORUM.SYS" 
190 PUT ttl, 255: PUT ttl, 255: PUT ttl, 0: PUT 

ttl, 32: PUT ttl, 125: PUT ttl, 41 
210 ? :? "WRITING FILE":PASS=2:LINE=99 
e:RESTORE 1000:TRAP 120:6010 50 
220 ? "BAD DATA: LINE "; LINE: END 
1000 DATA 453A9B4B3A9B443A20202020202e 
2020202020e09B00A9e48D4B28A9008DDC02AD 
lFD0C90eD0e38DC626A230A9, 750 



1010 DATA 039D42e3A9eC9D4a03A9209D4503 

A9009D44032056E4A9008DC602A240A9e39D42 

03A90C9D4Ae3A9209D4503A9,715 

1020 DATA 039D44032056E420ei2eA9012e4D 

28A90085568DF002A9128555A9158554A230A9 

0B9D4203A9009D48039D4903, 611 

1030 DATA A97C205eE4A920A20B9D0720CADO 

FA8E152820AD28C97EF01DC916F01CC99BF012 

C92EF076C93090E9C95BBOE5,549 

1040 DATA C9419013B01A4C98214C4A21A909 

204D282eB0264C4A21C93AB0CAAD1520F0C5AD 

AC28AC1520990820C88C152e,876 

1050 DATA A230A90B9D4203A9009D48039D49 

03ADAC28205eE4AD1520C908F825C9eBDe98A2 

30A9eB9D4203A9009D48039D , 315 

1060 DATA 4903A91E2056E420AD28C99BF07C 

C97EF02AD0F3A91C8555A9008556A9158554A2 

30A90B9D4203A90e9D48039D , 345 

1070 DATA 4903A97C205eE4A9088D15204C99 

20A90e8D15208556A9138555A9158554AC1520 

A230A90B9D4203A90e9D4803,329 

1080 DATA 9D4903B97C21F0092056E4EE1520 

4C59214C64202E2E2E2E2E2E2E2E7C7C2E2E2E 

00A900204D2820B02e20B02e, 760 

1090 DATA 4C4A21A9018DF002202224A9e620 

4D284CAC210000000eA9108DAA21A9008DAB21 

A92A8DA921A9808DA821A901 , 609 

1100 DATA 8D0103ADAA218DeAe3A9008D0B03 

ADA8218D0403ADA9218D0503A9522053E4AD03 

03C981D0A2EEAA21ADAA21C9,17 

1118 DATA 18F011ADA8211869808DA8219eC3 

EEA9214CC021A9008D3922A001A92A85D2A980 

85DlBlDlD90720Dee7C8C00C,367 

1120 DATA DeF4F82518A91065D185D19002E6 

D2EE3922AD3922C93EF005A001D0D900A90A20 

4D2820B0264C9D21Ae00BlDl , 616 

1130 DATA 2940FOD3A907204D28A9008D7624 

8DC3228DC422A00CB1D18D71248D7224C8B1D1 

8D7324C8B1D18D7424C8B1D1 , 184 

1140 DATA 8D7524A9018D0103A9188D0A03A9 

e08DOB03A92A8D0503A9008D0403A9522053E4 

AD03e3C9eiD022AD73242078,834 

1150 DATA 24CE7124Fe2DADA921186906CDE6 

02B011AC7324B90e2A8D73244CA1224C8A2100 

0eAC7324B9002A8D7324A901,22 

1160 DATA 8DC4224CDB22A9008DC422A90420 

4D2820AD28C97ED0034C4A21C99BD0F2A9018D 

0103A9528D0203A92A8D0503,428 

1170 DATA A9088D0403A9008D0B03A9ie8D0A 

032053E4AD0303C901D0AAAD0F2AC9A5F0BEA9 

0B204D28ADC322D034A002B9,874 

il80 DATA 10209911208810F7A92E8Die20A0 

00B90820C920Fe07C8Cee8D0F4F014983S69e7 

8D5423Ae00B91020990820C8 , 270 

1190 DATA C005DOF5A22eA9039D4203A9209D 

4503A9069D4403A9080DC3229D4A032056E4C0 

01D057A90B9D4203A92A9D45,e75 

1200 DATA 03A98e9D4403ADC422D00FAD7424 

9D4803AD75249D49034CAF23ADA82138E9809D 

4803ADA921E92A9D49032056, 255 

1210 DATA E4C001DeiCA90C9D42032056E4C0 

01DeieADC422D02AA9e5204D2820B0264C4A21 

A90e2e4D28A220A90C9D4203,406 

1220 DATA 205eE430EF20Be2eA903204D2820 

B0264C4A21AD722438ED71240A0A8DC526AD75 

2438EDC5268D7524AD71248D, 807 

1230 DATA 7224A9008D7624A9018DC3222022 

244C792268684C4A21A902204D2820AD28ADAC 

28C97EF0ECC99BD0F2A9018D, 555 

1240 DATA 0103A9528D02e3A92A8D0503A980 

8D04e3A9008D0B03A9108D0A032053E4AD0303 

C901Fe034CD223AO0FB9802A,242 

1250 DATA C9A5D0B98888B98e2AD062600000 

000e0e000048A90e8DAA218DAB21680A2EAB21 

eA2EAB210A2EAB211869198D,219 

1260 DATA AA219e03EEAB21AD7624D00AA92A 

8DA921A9808DAS21A9008D7724A9018D0103AD 

AA218D0A03ADAB218D0Be3AD, 764 
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1278 DATA A8218D8403ADA9218D05e3A?5220 

53E4ADe3e3C9eiD026EEAA21De83EEAB21ADA8 

2118e98e8DA82198e3EEA921 , 512 

1288 DATA EE7724AD7724C9e8DeB7A9FF8D76 

246e4C8A217DlDlDlDlDlD284143434553532e 

444F5328494949811C1E1E1E,263 

1298 DATA 1E1E1E1E1E1E1E1E1E1E1E1EA8A8 

A8A8A8A8A8A8A8A8A8A8AeA8A0A01DlDlElElE 

1E1E1E1E1E1E1E1E1E1E1E1E,691 

1388 DATA lEA8A8A0AeA8A8AeA8A8A8A8A8Ae 

AeA8A81ClElElElElElElElElElElElElElElE 

iEA8ClC3C3C5D3D3AeC4CFD3, 925 

1318 DATA A8C9C9C9A81D1D1D1D1D1E1E1E1E 

lElElElElElE61287574696C6974792e78726F 

e772616DlDlDlElElElElElE,248 

1328 DATA e279284D617474e86577284A6FeE 

65731C1C1E1E1E1E1E1E1E1E1E1E1E1E1E1E1C 

1C1C1C1C1E1E1E66726F6D28,938 

1338 DATA 415441524928444F5328322EeilD 

IDIDIDIDIDIDIDIDIDIDIDIDIDIDIEIEIEIEIE 

1E1E1E1E1E1E1E1E1E1E1E1E,643 

1348 DATA 1112121212121212128511121212 

851D1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E 

1E1E1E1E1E1E1E1E1E1E4649, 867 

1358 DATA 4C454E414D45286973287C2E2E2E 

2E2E2E2E2E7C7C2E2E2E7C1D1E1E1E1E1E1E1E 

lElElElElElElElElA121212,14e 

1368 DATA 1212121212831A1212128388eeA9 

248D7026A9888D6e26AC6826B9FF24F826C981 

Fe2548A238A9889D48839D49 , 714 

1378 DATA 83A98B9D4283682e56E4EEee26AD 

6826D8D8EE78264C6B2e4CC72eADC626D8EA28 

B826ADlFD8C986D8Ee8DC626,123 

1388 DATA F8DBA9858DC526A288Aee888D8FD 

CADeF8CEC526D8Fie88888A518297F85188DeE 

D268464154414C284552524F, 358 

1398 DATA 522D2e436865636B28796F75722e 

64e9736B2864726976652E88586Ce561736528 

656E7465722874686528444F , 273 

1488 DATA 53284949492ee6696C656E6ieD65 

88496E7365727428444F532e49494928646973 

662028787265737328524554,973 

1418 DATA 55524E8846696C652e7472616E73 

66657228696E636F6D786C6574652E88496E73 

65727428444F532832286469,863 

1428 DATA 7368202878726573732852455455 

524Eee5472616E73666572286F662866696C65 

28636F6D786C6574e52E8853,77S 

1438 DATA 6561726368696Ee72e666F72286e 

696C652E2E2E2E2E2E2E2E88466F756E642e66 

696C652C284C6F6164696E67,528 



1448 DATA 2E2E2E2E2E2E885872e573732844 

454C45544528746F2872657374617274ee5e65 

7273696F6E28312E31286279,21 

1458 DATA 284D617474686577284AeF6E6573 

8e46696Ce528eE6F7428666F756E642C28586C 

656173652872657472792E88,973 

1468 DATA 536176696E672e66696C652C2e78 

6C6561736528776169742e2E2E2E8826D126F5 

2717273927532773278E27A9,739 

1478 DATA 27C327DB27F82S16ee88488D4C28 

A9128554A9888556AD4B2885S5A238A9889D48 

839D4983A98B9D4283A97E28,784 

1488 DATA 5eE4A555C983D8E6688AA8B93328 

8D9D28B934288D9C2SA238A9889D48839D4983 

A98B9D4283A455888888B988, 592 

1498 DATA 88F8862856E44C8928A5558D4B28 

6888ADFC82C9FFDei2ADlFD8De834C74E4ADDC 

82eDBe82D81FF8E7A98eSDB6,985 

1588 DATA 828DFF82A94e8DBE82ADFC82C927 

F889C93CF84CD85188e8e8A5558DE228AD4C28 

8DE128ADE828284D28A98e8D,989 

1518 DATA DC828DBe82A9FF8DFC822eBe26AD 

E128284D28ADE2288555A9148554A238A98B9D 

42e3A98e9D48839D4983A91D,699 

1528 DATA 2e56E44CAD28A9FF8DFC82D8F6A2 

48A9879D4283A9e89D48839D49832856E43884 

8DAC2868A9888511A9FFSDFC,9S8 

1538 DATA 8268684C4A2ie8e88888888888e8 

88888888888888888888888888888888888888 

888888888888888888888888,373 



CHECKSUM DATA. 

fsee page 24] 

18 DATA 511,496,811,423,729,556,683,55 

5,573,694,613,38,948,748,962,9244 

198 DATA 549,38,155,511,697,493,71,678 

,776,785,532,781,688,998,856,8592 

1128 DATA 719,751,587,988,738,855,388, 

724,887,663,756,773,584,765,915,18989 

1278 DATA 824,792,178,115,995,936,968, 

688,63,423,937,896,398,375,428,8992 

1428 DATA 357,639,493,513,444,698,787, 

989,62,898,996,474,7342 





Listine 2. 


MEMTOP 




»a2E3 


} top of free meat 


) Pro 


gram actually 


starts here 






o 


CR8INH 




*e2F0 


icuraor Inhibit 


I 








Assembly listing. 


CH 
S3FLAB 




SB2FC 
»a2FF 


jchar buffer 
fstart/stop fig 


PRQ3TRT 


LDA It4 
STA LLEN8 


(Initialize data 








DUNIT 




SI9301 


! un I t number 






LDA »0 










DCQMND 




SI3302 


IbuB command 






STfl HELPFQ 


Iclear help flag 
1 speed up title 
fcfieck START 


1 ••*•*•••• 






D3TATS 




te^0:s 


Istatus return 






LDA CONSOL 


1 •»••»• 


ACCESS 


DOS III »»»»♦« 


DBUFLO 




«83ei4 


(buffer pntr 






CMP »4 


1 •«• WRITTEN BY M . JONES 19B4 »♦» 


DBUFHI 




*ezes 






BNE OPEN 
STA TPFLAQ 


(pressed? No. 


; »»»»»»»•«»»♦«»»»»»»»»»•»»»»»««»•»» 


DAUXl 




• a30A 










1 






DAUX2 




• 030B 




1 








1 This prag 


ram wae written for two 
To fulfill a need, and 


ICCDM 
ICBAL 




♦ 0342 
S0344 


ICIO command 


i OPEN CHANNELS FOR 


I/O 


1 raaBons. 


J 








1 a« an exp 


erlmental e»arci.9». 


ICBAH 




»B343 




1 






(locb ^3 


1 Th»rofor« 


, the ac 


tual codlno la 


ICBLL 




»0348 




OPEN 




LDX #S30 


1 to bi tak 


in as such, ae mucR haa 


ICBLH 




S0349 








LDA **03 


(Open 


1 altered m 


Ince tt 


started life. 


ICAXl 




• 034A 








STA ICCOM, 


X 


i Seemtngly 
1 probably 
I 1 hop* tfl 


maanl nn 


leaa labels 


DBKINV 




SE433 


Idlsk vector 






LDA a»0C 
STA ICftXl, 
LDA • >OPE 
STA ICBAH, 
LDA » <aPE 


(read and write 
X 

NE ( f name " "E: " 
X 


ma mean 


something once! 


CIQV 




SE436 


ICIO vector 






e commen 


ts orovlded helo 


WARMSV 




SE474 


1 warmstart 






1 you undermtand what vou want to 


1 












1 know, vac 


1 section was written aa 


1 Hardware 


Regl aters 








NE 


1 a module 


■o that 


should help. 


1 










STA ICBAL, 


X 


1 - Matthew 


Janmm 


C0N30L 


a 


• D01F 


iconsole keys 






J3R CIOV 


(open editor 


1 






IRQEN 


m 


• D20E 


} IRC) enable mask 






LDA #0 




1 Operating 


Syetee 


Equates 


\ 


' 


S2000 




1 




STA CaL0R2 




1 






{ 




I e: 


NOW 


OPEN ON CHANNEL 3 


PQKM3K ■ 


tie 


Imask IRQ enable 


OPENE 


. 


BYTE "E:", 


STB 


t 




LDX (t»40 
LDA «»a3 


(locb 1*4 


BRKKEY 


>i 1 


1 BREAK flag 


QPENK 


. 


BYTE "K: ■■, 


S9B 






ROUCRS ■ 


»34 


icuraor row pntr 


OPEND 


. 


BYTE -D: " 








( Open 

(read and write 
X 

NK (fname - "K:" 
X 


CQLCRS 
DIRPTR 


»33 
• Dl 


!and column pntr 
(directory pntr 


F1LE9T 
FNPTR 


.BYTE " 
.BYTE 


" , 0, »9B 






9TA ICCOM, 
LDA lt»0C 
STA ICAXl, 
LDA It >OPE 
STA ICBAH, 
LDA » <OPE 


INVFLQ 
SHFLK 


«I92B6 
»B2BE 
*I32C& 
*02DC 


» Inv vl dec flag 
ishlft-lock flag 
Iplayfleld 2 
IHELP key flag 


! INITIALIZE 








C0L0R2 - 
HELPFB 


) 

) 






NK 
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Access III 



continued 



3Tfi ICBAL.X 

J3R CIOV jopen editor 

K: NOW OPEN ON CHANNEl- 1 

START OF PROQRAM PROPER 



LDA (»0 fbuflen zero 
STfi ICBLL.X Idata In 



JSR TITLE 
LDA til 



^filename prompt 



INITIALIZE FOR DATA INPUT 



LDA *e f< 

9TA COLCRStl 



25i col umnG ' 



aTA CR3INH 

LDA »1B 

STA COLORS 

LDA »2l 

3TA ROWCRS 

LDX »«30 

LDA lt«aB 

3TA ICCOM.X 

LDA *0 

STA ICBLL.X 

STA ICBLH.X 

LDA #124 

JSR CIOV 

! 

I CURSOR NOW ON DOT 



LDA (H20 

LDX ««eB 

FWIPE STA FILEST-l 
DEX 

BNE FWIPE 

STX FNPTR iclear FN pntr 

1 CHARACTER CHECKINO AFTER INPUT 



icuraor on 



iciiraar at 1.8,21 
ilocb «3 E: 
ipat characters 

; buf 1 an >= 
I data to Ace 

; hor 1 z line char 



SPACE char 

X iclear fname 



EaFN2 
FNDEL2 



JSR 
CMP 
BED 
CMP 
BEO 
CMP 
BEQ 
CMP 
BEO 
CMP 
BCC 
CMP 
BCS 
CMP 
BCC 
BCg 

JMP 
JMP 

LDA 
JSR 
JSR 
JMP 

CMP 
BCS 
LDA 
BED 
LDA 
LDY 
STA 
INV 
STY 
LDX 
LDA 
STA 
LDA 
STA 
STA 
LDA 
JSR 
LDA 
CMP 
BEO 
CMP 
BNE 



KEYCHK 

»126 

FNDEL2 

• 22 

VER3N 

»«"?B 

EQFN2 

It46 

EXTEND 

Die 

INFILE 

«91 

INFILE 

»br, 

NUTEST 
PLCHfif? 

EOFN 
FNDEL 

M3QP 

PAUSE 

FNDEL 

»• 9-H 

INFILE 

rNPTR 

INFILE 

KEY 

FNPTR 

FILE3T,\ 

FNPTR 
(••30 
H<0B 
ICCOM, X 

ICBLL.X 
ICBLH, X 
KEY 
CIOV 
FNPTR 

«a 

EXTEND 

»«I9G 

INFILE 



!Ye 
i CT 
E ve 
!RE 

I Ye 
!-fu 
I Ye 
i 1 e 
? yp 
; 1 a 
1 Ye 
t I e 
! Yb 
! in 



LETE? 

1 ete 
RL/V 
r B 1 on no . 
TURN? 

go checka 

stop? 



1 1 



tender 
aa than 07 

refuse 1 
rqer than Z 

refuse 1 
se than A? 

number? 
aert char 



I \ umpg for 1 ong 
t branches 

Hverston message 



: I arger than 9? 
?Yes. throw out 
J teat first char 
I It' B not all owed 



J put in fname 

I save 1 1 

tlocbrj e: 

Iput characters 

\ buf 1 en * 
(data ta Ace 



Its eight char 
I 1 1ml t reached? 
I /ea. eK tender 
lend file line? 
I No. 



11 CHARACTER3 INPUT NOW 



ONLY RETURN OR DELETE NOW VALID 



LDX 
LDA 
STA 
LDA 
STA 
STA 
LDA 
JSR 
3FL JSR 
CMP 
BEQ 
CMP 
BEQ 
BNE 

EXTEND ROU 
EXTENDER PI 
OF A DOT I 
POSITION I 

XTEND LDA 
STA 
LDA 
STA 
LDA 
STA 
LDX 
LDA 
STA 



tl*30 
lt»»B 
ICCOM, X 

ICBLL, X 

ICBLH, X 

1130 

CIOV 

KEYCHK 

(ta-JB 

EOFN 

»126 

FNDEL 

EQFL 

TINE MOVE 
OaiTION U 
NPUT (REQ 
N LINE AT 

tl2B 

C0LCR3 

110 

C0LCR3-H 

tl21 

ROWCRS 

tt*30 

lt*0B 

ICCOM, X 



!lQCb3 E: 
iput byte 

; z er o I en g th 
( a data 

! cursor 1 ef t 

iget a key 

i r e t u r n ? 

(go for checks 

i del ete? 

i Yes. 

) No . 1 oop 

S CURSOR TO 

PON RECEIPT 

ARDLES3 OF 

PRESENT) 

icuraor position 



icursor at 28 2 1 

)lacb3 E: 

iput ct\Ar Ac\.cr % 





STA 


ICBLH, X 






LDA 


tll24 


i vert leal line 




JSR 


CIOV 






LDA 


tts 






STA 


FNPTR 






JMP 


INFILE 




! CURSOR 


NOW 


IN EXTENDER BLOCK 


I DELETE 


OPTION HA9 BEEN SELECTED. 


i WHOLE 


LINE 


WILL BE 


DELETED 


FNDEL 


LDA 


tl0 






STA 


FNPTR 


i no 1 anger val 




STA 


COLCRSH 






LDA 


ttl9 






STA 


COLCRS 






LDA 


»21 






STm 


ROWCRS 


icursor at 19, 


REBEL 


LDY 


FNPTR 






LDX 


lt»30 


ilocb3 E: 




LDA 


ll*0D 


iput byte 




STA 


ICCOM, X 






LDA 


110 






STA 


ICBLL. X 






STA 


ICBLH, X 
DELSTR, Y 






LDA 






BEQ 


DELEND 


lend of data 




JSR 


CIOV 






INC 


FNPTR 






JMP 


REDEL 




DELEND 


JMP 


START 




DELSTR 


.BYTE •■ 


... 1 1 ...■■, 


DERROR 


LDA 


• 


1 dl sk hardware 




JSR 


M33P 


ierror or bad 




J3R 


PAUSE 


i d I B k e 1 1 e 




JSR 


PAU9E 






JMP 


FNDEL 




i WE HAVE END OF FILE 


NAME' 



PROQRAM COMES HERE WHEN USER HAS 
PRESSED RETURN TO ENTER THE FNAME. 



LDA 111 

STA CRSINH 

JSR IIID3K 

LDA 116 

J3R M33P 

JMP DOKAY 



{ dl sabi e cursor 



: ensure DOS III 
isearch message 



DISK NOW KNOWN TO BE OKAY 



BUFPTR 
SECTOR 



.WORD 
.WORD 



(set up - fetch 
i of dl rectory 



istart directory 



ibuffer pointer 



5t sector 



E okay? 



DOKAY LDA »16 

STA SECTOR 

LDA 110 

STA SECTOR-Hl 

LDA H >DATBUF 

STA 8UFPTR+1 

LDA It <DATBUF 

STA BUFPTR 
I 

I NOW BET DIRECTORY SECTORS 
I 
OETDIR LDA HI (drive 1 

STA DUNIT 

LDA SECTOR I sector number 

STA DAUXl 

LDA 110 

STA DAUX2 

LDA BUFPTR 

STA DBUFLO 

LDA BUFPTR-H 

STA DBUFHI 

LDA tia52 i 

JSR D3KINV 

LDA DSTATS 

CMP HI 

BNE DERROR 

INC SECTOR 

LDA SECTOR 

CMP 1124 

BEQ FN3EAR 

LDA BUFPTR 

CLC 

ADC iiaa0 

STA BUFPTR 

BCC QETDIR 

INC BUFPTR-H 

JMP BETDIR 
I 

I SEARCH FOR FILENAME 

I 

I 

FNSEAR LDA »0 ilnlt str search 

STA FCTR ifllecounter 

LDY HI iflne pntr 

LDA II >DATBUF Icourse pntr 

STA DIRPTR-i-1 

LDA » <DATBUF 

STA DIRPTR 

DIR3ER LDA (DIRPTR), Y 

CMP FILEST-l, Y 

BNE NXTFL i wrona 

INY 

CPY »»»C 

BNE DIR3ER 

BEO FQNDFL 



i last 
i Yes. 



LDA tt«10 

ADC DIRPTR 

STA DIRPTR 

BCC NXT0 



ifound It? No. 
icheck status 



t set pol nter to 
ineKt entry 



FCTR 
NFF 



INC DIRPTR-H ladd In carry 
Tk.r^ r-^T.^ iflle counter 

i no file found 
t ex am nex t entry 
iflle counter 
iflle not found 



INC FCTR 

LDA FCTR 

CMP »62 

BEO NFF 

LDY (11 

BNE DIR3ER 

.BYTE 

LDA HSBA 

JSR MSBP 

JSR PAUSE 

JMP D03ERR 



LDY »e iflle status 
LDA (DIRPTR). Y istatus by 



I mask bit 

iflle not In use 



1 SET 

I 

i 



AND 11*40 

BEO NXTFL 

LDA 117 

JSR M33P 

LDA 110 

STA KFLAB 

STA APPFLB 

STA MORFLO 



DATA FROM DIRECTORY BLOCKS 



LDY #12 

LDA IDIRPTR),Y i» of t3locks 

STA NOBLOK 

STA ONOBLOK 

INY 

LDA (DIRPTR) , 

STA NXTBLK 

INY 

LDA (DIRPTR), 

STA PEOF 

INY 

LDA (DIRPTR), 

STA PEOF+1 

LDA 111 

STA DUNIT 

LDA 1124 

STA DAUXl 

LDA •» 

STA DAUX2 

LDA H ;VTOC ivtoc buffe 

BTA DBUFHI 

l.DA n <VTOC 

STA DBUFLO 



I fir 



, Y i pol nter I ow 



Ipolnter high 
i dr I ve l 



vtoc sector 



LDA 11*32 

JSR D3KINV 

LDA DSTATS 

CMP »1 iok 

BNE DERR 

LOAD BLOCKS FROM FILE 



LDA NXTBLK ;ne>it block » 

LOADBK JSR KBLOCK iget it 

DEC NOBLOK 

BEO SAVBUF iall In- save it 

LDA BUFPTR+1 | h I gh of buffer 
CLC iadd 1.3K 

ADC (16 ifor safety 

CMP MEMTOP-H 

BCS NOMEM 
I 
I OKAY, BET NEXT BLOCK 

LDY NXTBLK ipntr for next 

LDA VTOC.Y iblock fetch 

STA NXTBLK 

JMP LOADBK 
! 
i RANBE JUMPERS 

DERR JMP DERROR 



APPFLB 


.BYTE 


i append f 1 a 
Imore data 


MORFLO 


■BYTE 


NOMEM 


LDY 


NXTBLK 


ifetch poin 




LOA 


VTOC.Y 




STA 


NXTBtK 






LDA 


HI 






8TA 


MORFLO 






JMP 


BUFSAV 




i DATA 


SAVE 


-L IN ME 




I 

i DATA 


NOW A 


MDRY 


1 SAVE 


IT USINB DOS 


2 


1 FIRST 


CHECK FDR DOB 2 DISK 


SAVBUF 


LDA 


1(0 






STA 


MORFLB 


I 1 as t of ap 
1 ■ INSERT DO 


BUFSAV 


LDA 


114 




JSR 


M3UP 


!2 DISK' 


32 


JSR 


KEYCHK 






CMP 


11126 


iDELETE? 




BNE 


31 






JMP 


FNDEL 




SI 


CMP 


(1*93 


i RETURN? 




BNE 


32 






LDA 


#1 






STA 


DUNI T 






LDA 


ll»32 


iget sector 




STA 


DCOMND 






LDA 


» )VTQC 






STA 


DBUFHI 






LDA 


II <VTOC 






STA 


DBUFLO 






LDA 


»0 


s dl rectory 
I sector 




STA 


DAUX2 




LDA 


• 16 






STA 


DAUX 1 






JSR 


DSKINV 





flag 
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LDA DSTATS 

CMP »1 

BNE DERR 

LDfl VT0C-H3 

CMP tl»fl3 

BED BUFSAV 

LDfi »*gB 

J9R M3QP 

I 

I EXTENDER MOVER 



IDDS III? 
;lQap until II 

! -SflVINa FILE' 



JSR IIIDSK 

JMP eVTOC 



DOS HI DISK CONFIRMATION 



LDA APPFLB 

BNE ESKIP 

LDY #2 13 bytefl to move 

LDA FILEST*a,Y iextendsr 

9TA FILEST-f^.Y 

DEY 

BPL EMOVE 

LDA »4i (fullaton 

STA FILE3T+8 



! NOW NEED TO MOVE EXTENDER 


I UP TO 


FILENAME FOR 


03 


) 


LDY 


*0 




MLODP 


LDA 


FILEST.Y 




CMP 


»«20 


1 SPACE? 




BED 


MOVE 


fYafl. extender 




INY 








CPY 


»a 


;end of fname? 




BNE 


MLOOP 


INo. 




BED 


ESKIP 


Tno Epaces 


MOVE 


TYA 
SEC 




^prepare to move 




ADC 


» <FILEST-1 (fancv stuff 




STA 


MLABEL+1 






LDY 


*|3 


) actual move 


MLQ0P2 


LDA 


FILEST+a, Y 


MLABEL 


STA 


FILEST.Y lthl« will be 




INY 




if lle«t-Ky) ,y 




CPY 


#3 


lall moved? 




BNE 


ML00P2 


; No. 


ESKIP 


LDX 


»»2a 


flocb 2 




LDA 


».3 


1 open 




STA 


ICCOM.X 






LDA 


» >OPEND 




STA 


ICBAH.X 






LDA 


» <DPEND 




STA 


ICBAL, X 






LDA 


**eB 


T output 




ORA 


APPFLQ 


iand append? 




STA 


ICAXl , X 






J3R 


CIOV 






CPY 


«1 






BNE 


SERROR 


) errar-> 




LDA 


*«0B 


iput chars 




8TA 


ICCOM, X 






LDA 


It >DATBUF 




STA 


ICBAH, X 






LDA 


» <DATBUF 




STA 


ICBAL, X 






LDA 


MORFLO 






BNE 


ALLBUF 






LDA 


PEOF 






STA 


ICBLL.X 
PEOF ■••I 






LDA 






STA 


ICBLH, X 






JMP 


DUMP 




ALLBUF 


LDA 
SEC 


BUFPTR 






SBC 


» <DATBUF 




STA 


ICBLL, X 
BUFPTR+1 






LDA 






SBC 


» >DATBUF 




STA 


ICBLH, X 




DUMP 


JSR 


CIOV 






CPY 


»1 






BNE 


SERROR 


? error-> 




LDA 


«*0C 


iclose iocb2 




STA 


ICCOM.X 






JSR 


CIOV 






CPY 


*1 






BNE 


3ERR0R 






LDA 


MORFLa 






BNE 


MORE 






LDA 


*3 






JSR 


M3BP 


i •COMPLETED' 




JSR 


PAUSE 






JMP 


FNDEL 


lloop for next 


3ERR0R 


LDA 


»0 


(fatal error 




JSR 


Msap 






LDX 


»»20 






LDA 


«>0C 


icloae »2 




STA 


ICCOM, X 






JSR 


CIOV 






BMI 


SERROR 


9 loop if error 




JSR 


PAUSE 






LDA 


It3 


Itransfer waa 




J3R 


M3BP 


i 1 ncomp 1 ete 




JSR 


PAUSE 






JMP 


FNDEL 


i restart 


MORE 


LDA 
SEC 


ONOBLOK 


lorlg • blocke 




SBC 


NOBLOK 


{get difference 
} timea 2 




ASL 


A 




A3L 


A 


Itlmes 4 




STA 


PTEMP 






LDA 


PEOF+l 






SEC 








SBC 


PTEMP 






STA 


PEOF+1 






LDA 


NOBLOK 


fupdate Info 




STA 


ONOBLOK 






LDA 


»0 






BTA 


KFLA3 






LDA 


»1 






STA 


APPFLQ 





PLA 
PLA 

JMP FNDEL 

LDA tt2 

J3R M3QP 

JSR KEYCHK 

LDA KEY 

CMP »12& 

BEQ DELJMP 

CMP »»7B 

BNE I I I 

LDA »l 

3TA DUNIT 

LDA »»52 

STA DCOMND 

LDA » >DATBUF 

STA DBUFHI 

LDA » <DATBUF 

STA DBUFLD 

LDA *{> 

STA DAUX2 

LDA »*10 

STA DAUXl 

JSR DSKINV 

LDA DSTATS 

CMP »l 

BEQ DOSCHK 

JMP SERROR 



Iclear j sr puah 



I DELETE? 

I yap restart 

(RETURN? 



( get aector 



I dl r sector 



LDY #15 



I DOS III 



NOBLOK 


.BYTE 





ONOBLOK 


. BYTE 


f> 


NXTBLK 


.BYTE 


ei 


PEOF 


.WORD 


II 


KFLAQ 


.BYTE 


e 


KTEMP 


.BYTE 


e 


KBLOCK 


PHA 





LDA DATBUF.Y (Identifle 

CMP »»A3 Ibyte 

BNE IIIDSK 

DEY 

DEY 

LDA DATBUF.Y 

BNE IIIDSK 

RTS 
I 

i NOTE NO CHECK TO ENSURE 
) SAME DISK SECOND TIME ROUND 



lif <>0, bu 
I pn tr not r 



IK blk * in 

LDA ttl3 {Clear aect 

STA SECTOR 

STA SECTOR-i-1 
PLA (sector"a*k 

ASL A fkb»2 

ROL SECTOR+1 (if carry 

ASL A ikb«4 

ROL SECTORfl 

ASL A ikb»a 

ROL 3ECT0R-H 
CLC 

ADC #23 

STA SECTOR 

BCC Kl 

INC SECTOR-H (aector ae 

LDA KFLAQ (reaet pain 

BNE K3 

LDA » >DATBUF 

STA BUFPTR-fl 

LDA * <DATBUF 

STA BUFPTR 



t up 
ter? 



K3 


LDA 


*e 




3TA 


KTEMP (aector count 


K3EC 


LDA 


»1 (drive I 




STA 


DUNIT 




LDA 


SECTOR 




STA 


DAUXl 




LDA 


SECTOR-i-1 




STA 


DAUX2 




LDA 


BUFPTR 




3TA 


DBUFLO 




LDA 


BUFPTR+1 




3TA 


DBUFHI 




LDA 


((*32 (get sector 




JSR 


DSKINV 




LDA 


DSTATS 




CMP 


»1 (okay? 




BNE 


KERROR 




INC 


SECTOR 




BNE 


K2 (07 byte cycled 




INC 


SECTOR+l ilnc hlon byte 


K2 


LDA 
CLC 


BUFPTR 




ADC 


It*a0 




STA 


BUFPTR 




BCC 


K2A 




INC 


BUFPTR+l 


K2A 


INC 


KTEMP 




LDA 


KTEMP 




CMP 


#8 (got 8 sectors? 
K3EC (No. 




BNE 




LDA 


)t»FF 




STA 


KFLAQ (atop alteration 




RTS 


(of pointer 


KERROR 


JMP 


DERROR 


( TITLE 


SEQUENCE DATA 


J NOW FOLLOWS BYTES OF TITLE INFO 


TITLST 


.BYTE 123. 2?. 29, 2"?, 29, 29 



.BYTE +»80," 

.BYTE +»8a," 

.BYTE 29,29,30,30,30,30,30 

.BYTE 30,30,30,30,30,30.30 

.BYTE 30,30.30,30 

.BYTE +»80,'' 

.BYTE +»80, " 

.BYTE 28,30,30,30,30,30 

.BYTE 30,30.30,30,30,30,30 

.BYTE 30,30,30,30 

.BYTE +»80,'' ACCESS DOS" 

.BYTE +»80, " III ■' 

.BYTE 29,29 

.BYTE 29.29,29.30,30,30,30 

.BYTE 30,30 30 30,30.30 

.BYTE "a utility program" 

.BYTE 29.29.30,30730:30.30 

.BYTE 30, "by Matthew Jonea" 

.BYTE 28,28,30,30,30,30,30 

.BYTE 30,30,30,30,30,30,30 

.BYTE 30,30.28,28,28,23,28 

.BYTE 30,30,30 

.BYTE "from ATARI DOS 2.",1 

.BYTE 29.29.29.29.29.29,29 

.BYTE 29 29 29;29;Z9;29;29 

.BYTE 29,30,30,30,30,30,30 

.BYTE 30,30,30,30,30,30,30 

.BYTE 30,30,30,30,17,18,18 

.BYTE IS, 18, 18, IB, 18, IQ, 3, 17 

.BYTE 18,18,18,3,29,30,30,30 

.BYTE 30,30,30,30.30,30.30 

.BYTE 30.30,30,30,30,30,30 

.BYTE 30,30,30,30,30,30,30 

.BYTE 30,30,30 

.BYTE "FILENAME ia I...." 

. BYTE ". . . . 1 i . . . I " 

.BYTE 29,30,30,30,30 

.BYTE 30,30,30,30,30,30,30 

.BYTE 30,30, 30,30, 2i, 18. 18 

.BYTE 18,18,18,18,18,18,3,26 

.BYTE 18, 18, 13, 3. f 





[ TITLE 


PRINTIND ROUTINE 




TITLE 


LDA 


* >TITLST 






STA 


TINC1-2 








LDA 


»0 


( reaet pol nter 






STA 


TCOUNT 






TPRINT 


LDY 


TCOUNT 


( set index 




TINC 


LDA 


TITLST, Y (load character 






BEQ 


TEND 


( " end of data 


f f er 




CMP 


»1 


( 1 « pauae i t 


east 




BEQ 
PHA 


JPAUSE 


(push byte 
iTocb «3 


Ace 




LDX 


»*30 


or t 




LDA 
STA 
STA 


ICBLL, X 
ICBLH, X 


(length » 


b-c23 




LDA 
STA 


»«0B 
ICCOM, X 


(clo put byte 


fl 




PLA 
JSR 


CIDV 






TNEXT 


INC 


TCOUNT 





PLOOP 
XLOOP 
YLQOP 



PTEMP 
TPFLAQ 



LDA TCOUNT 

BNE TPRINT 

INC TINCi-2 

JMP TPRINT 

JMP BRKDIS 

LDA TPFLAO 

BNE TNEXT 

JSR PAUSE 

LDA CONSOL 

CMP »h 

BNE TNEXT 

STA TPFLAQ 

BEQ TNEXT 

LDA »5 

STA PTEMP 

LDX It0 

LDY »0 

DEY 

BNE YLOOP 

DEX 

BNE XLOOP 

DEC PTEMP 

BNE PLOOP 

RTS 

.BYTE 
.BYTE 



( loop un t i 1 dona 
(disable break 



END OF TITLE PRINT 

RKDIS LDA P0KM3K 

AND t»7F 

STA POKMSK 

STA IRQEN 
RTS 



(current status 
(disable BREAK 
(put it back 
( and to hardwara 



i NOW COMES THE PROMPT PRINTER 



( DETAILS DONE, NOW SET III DISK BACK 



.BYTE " AtcESs 6o3 III" 

.BYTE 1,28,30,30,30,30,30,30 

.BYTE 30,30,30,30,30,30,30 

.BYTE 30,30 



.BYTE 

. BYTE 

. BYTE 

. BYTE 

.BYTE "In 

. BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

. BYTE 

.BYTE 

. BYTE 



FATAL ERROR- Check " 
your disk drive. ",0 
Please enter the DD3" 

III filename", 

ert DOS III diak," 

press RETURN", 
File transfer '^ 
1 ncompl ate. 

nsert DOS 

rasa RETURN 



?raSB RETURN" , W 
ransf er of file 
"comp 1 ete. " , 
"Searching for " 

"file " , 

.BYTE "Found file, " 

.BYTE "Loading ",« 

.BYTE "Press DELETE to 
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x\.CCGSS 1X1 continued 





.BYTE "reiitart".0 




DEY 








STA 


HELPpa 




M989 


.BYTE "Uersl 


on 1.1 by " 
ew jQnBa'',0 




DEY 








STA 


INVFLa 






.BYTE "Matth 




DEY 




(goto bealnning 
(lined earlier 




LDA 


• »FF 




nSQA 


.BYTE "Fila 


not found. " 


M3Q3TR 


LDA 


»0B, Y 
PEND 




STA 


CH 






.BYTE "Ploaae retrw.".0 




BEQ 


(finish? Yes. 




JSR 


PAUSE 


(wait a moment 


Mses 


.BYTE "Savin 


g file, please " 
. . . " , 




J3R 


CIOV 






LDA 


HLSTMSa 


( restore 




.BYTP "wait 




JMP 


PPRINT 


( loop round 




J3R 


M3BP 


I last message 


1 








PEND 










LDA 


HELPCOL 




1 








LDA 


COLCRS 


(how much data? 




BTA 


COLCRS 




MSQTBL 


.DBYTE ttaoa, 

.DBYTE M304, 
.DBYTE M3Qa, 


Maai ,MBQ2,M8a3 
M3a3,MSB6,M3S7 
M3Q9;M3aA,MSBB 


; 


STA 
RT3 


LLENa 


(save It 




LDA 
STA 
LDX 


• 20 
R0WCR3 

• »30 


( locb3 e; 


LtENQ 


.BYTE 




( KEY INPUT ROUTINE 






LDA 
3Tfl 


»«0B 
ICCOM,X 


(put chars 


LBThaa 


-BYTE 
















f 








( 










LDA 


#0 


(buflen « 


I PROMPT 


MESSAQE PRINTER 


KEY 


. BYTE 






STA 


ICBLL, X 


(data to Ace 




















STA 
LDA 


ICBLH, X 
• 27 




i 








KEYCHK 


LDA 


CH 


(get key 




(cursor down 


MSQP 


PHfl 




} Hava 1 i ne 




CMP 


»*FF 






JSR 


CIOV 






STfl 


L3TM3G 


(for •HELP" UM 




BNE 


KEYIN 


( anythl ng? 


HPX 


JMP 


KEYCHK 






LDA 


• 18 


11? 11 nea down 




LDA 


CDN30L 


(console keys 


( 










STfl 


RQWCR3 






BNE 


KEYCl 


(all pressed? 


NOQO 


LDA 


• »FF 






LDA 


»0 


l<256 columns 




JMP 


WARMSU 


(Yes. RESET 




STA 


CH 


(Clear keypress 




aTA 


CDLCR3-f 




KEYCl 


LDA 


HELPFQ 


(help? 




BNE 


HPX 






LDA 


LLEN8 


(set line length 




ORA 


INVFLO 


( 1 n verse? 


SETKEY 


LDX 


• «40 


(K: is tocb 4 




aTA 


CQLCRS 


(to column • 




BNE 


HELP 






LDA 


»»07 


(get character 


DELETE 


LDX 


»«30 






BEO 


KEYCHK 






STA 


ICCOM, X 






LDA 


»0 


1 buf len = 


( 










LDA 


• 


(buflen = 




BTA 


ICBLL, X 


fdata to Ace 


KEYIN 


LDA 


•a 


( key pressed 




STA 


ICBLL, X 


(data to Ace 




STfl 


ICBLH.X 






STA 


INVFLO 


(clear Inverse 




STA 


ICBLH, X 






LDA 


lt*0B 


;cio put byte 




STA 


SSFLAO 


(clr STOP fig 




JSR 


CIOV 






STA 


iccon,x 






LDA 


• *40 


(and shifts 




EMI 


KEYBRK 


(break or ctrl3 




LDA 


• »7E 


(BACKSPACE 




STA 


3HFLK 






3TA 


KEY 






J3R 


CIOV 






LDA 


CH 






RTS 








LDA 


COLCRS 


[all deleted? 




CMP 


»»27 


(atari logo key? 


( 










CMP 


»3 






BEQ 


HELP 




KEYBRK 


LDA 


»*80 


(BREAK! restart 




BNE 


DELETE 


(No. do another 




CMP 


»»3C 


(caps lock? 
(not allowed 




STA 


BRKKEY 


(clr break flag 




PLA 




(pop meEcage • 
(limes 2 




BEQ 


NOBO 




LDA 


• ♦FF 


land key 




A3L 


A 




BNE 


BETKEY 






STA 


CH 




TAY 




(use as Index 


1 










PLA 




(Clear jsr 




LDA 


MSBTBL.Y imsg addr hi 


HELPM3B 


.BYTE a 






PLA 








3TA 


MSQ3TR+2 


HLSTMSa 


.BYTE 






JMP 


FNDEL 






LDA 


M3QTBL+ 


. Y ( msa addr lo 


HELPCQL 


.BYTE 




( 










3TA 


M3a3TR+l' 


( 








VTOC 


s 


t»+»ai00U.»FF00 




LDX 


**30 


( locb«3 


HELP 


LDA 


COLCRS 


1 save 


DATBUF 


„ 


VT0C+12a 


PPRINT 


LDA 


»0 


* buf 1 en *= 




STA 


HELPCOL 


(cursor position 


( 










STA 


ICBLL, X 






LDA 


LSTMSa 


( save 




»K 


S02E0 






STA 


ICBLH, X 






STA 


HL3TM3B 


(last message • 
(get current 




.WORD PRaSTRT 




LDA 


• •08 


(put byte 




LDA 


HELPM9B 




.END 






BTA 


ICCDH, X 




JSR 


Msap 


(help message 
(clr help flags 












LDY 


COLCRS 


(get the y Index 




LDA 


• 


• 









SUPER 3D PLOTTER 

BY; RANDOLPH CONSTAN c 1985 



THIS IS IT!: 

ftn incredible 3D animation and 
display package for all BTflRI 
computers with 1BK RAM and one disk 
drive. This program will allow you 
to create DETftlLED 3D LINE DRAWN 
IMAGES, IN FULL SCREEN, HI-REB 
COLOR, with the aid of an 
incredibly versitile screen editor. 
Then, sit bad; and be amazed as you 
move and rotate your creation, at 
an unbelievable 3-6 SCREEN UPDATES 
PER SECOND!! This is the kind of 
animation that was considered 
impossible -for an ATARI. BELIEVE 
IT!! THIS PROGRAM ALLOWS MORE REAL 
TINE CONTROL THAN ANY CURRENTLY 
AVAILABLE 3D SYSTEM FOR ANY B BIT 
MACHINE; 

Full ROTATION and ROTATIONAL 

OFFSET control on any axis! 

change VIEWER DISTANCE, MAGNIFY, 

and alter PERSPECTIVE at will ! 

SPEED AND ACCELERATION CONTROL 

in all di rections. 

All movement exceptionally 

smooth and ACCURATE. 

Dump a SUPER HI-RES (64B X 384) 

image to EPSON and many other 

dot matrix printers. 

CHANGE or ADD to your creations 

at any time. 

Full DISK STORAGE CAPABILITY for 

your finished work. Special 

SCREEN SAVE feature even allows 

compatibility with most drawing 

programs. 



AND MUCH MORE! 
ONUY *2S'.'?5 

N.V. RESlDeNTG ADD 7.SX SALES 

BEND CHECK OR MONEY ORDER, 
E.A.B.e. FOR MORE INFO DN 
MABTERPICCE TDi 



tlfitt iHagtr 



(onnr* wllti ImtRlrMltM 
23 Brook PI. 




£. Utip, N.Y 

CIRCUI T 
t-ABLEi ON 


11730 

DATABASE 1 I 
l_V •! O. GO ■ 




turbo-4th 



The ideal computer language 
for Games & Graphics. 

By the author of 
Team FORTH 

• Source compatible with 
Team FORTH and fig-FORTH 

• Runs 2 to 4 X 's faster 

• Great 96p manual (source 
listings) 

• On disk for any 32k -i- Atari 

• $27.00 postpaid (CA add 
sales tax) 

send to: turbo-4th 

884 Cape Diamond Drive 
San Jose, CA 95133 



CIRCLE #108 ON READER SERVICE CARD 



HAPPY 4th! 

— ' — MW — " — 

HARDWARE net price 

HAPPY 1050 $ CALL 

HAPPY 810 S CALL 

RAMROD XL S83.50 

OLD 800 RAMROD S95.00 

XL BOSS S64.50 

R-VERTER (M/F) S39.95 

OMNIMON (800/400) S58.00 

OMNIVUE XL $45.00 

OMNIVUE (800/400) $25.95 

SOFTWARE 

LJK LETTER PERFECT $39.50 

LJK DATA PERFECT $35.50 

HOMEPAK $35.00 

BASEBALL 

STAR LEAGUE $19.95 

COMPUTER BASEBALL $31.50 

MICRO LEAGUE BASEBALL $31.50 

OSS MAC65 $63.50 

OSS BASIC XL $69.50 

OSS ACTION! $68.95 

OSS TOOLKITS (ALL) $30.50 

OUT OF STATE ORDERS ONLY: 

(800) 223-2686 

QUESTIONS OR CALIFORNIA ORDERS; 

(714) 635-8621 

CONSUMER ELECTRONIC 
STORE 

1100 W. LINCOLN AVE,, ANAHEIM, CA 92805 

OPEN: M-F 10-7, SAT 10:30-4 (PST) 

VISA & M/C — ADD 4% 

HAVE A HAPPY 4lh OF JULY! 



CIRCLE #107 ON READER SERVICE CARD 



CIRCLE #109 ON READER SERVICE CARD 




SUPERPRINTER 



PACKAGES 

SG-10 Printer and 
U-Print A 289 

Citoh 7500AP and 
U-Print A 292 

Panasonic 1091 and 



Panasonic 1090 and 
U-Print A 269 

Legend 880 and 
U-Print A 287 

Legend 1080 and 
U-Print A 307 

Powertype and 



U-PrintA 339 U-PrintA 369 

Super printer packages have no extra 
charges added when shipped in Conti- 
nental USA. 



Call for prices on joysticks, 
printer cables, blank floppy 
disks, and other computer 
accessories. 



^ATAR 



Atari 130 XE Computer cjn For 

. . - ^ - -^ . . ■-» . Current 

Atari 1050 Disk Drive prices 



micronici'iftc 

THE POWER BEHMD THE PRWTED WORD. 



SG-10 Printer 219 



PRINTER BUFFERS 

Microfazer Call 

MPP Printer Stuffer 

119.95 

U-Print-16K Printer 

Buffer 79.95 



U-Print-32K Printer 
Buffer 99.95 

U-Print-64K Printer 
Buffer 109.95 



INDUS 
GT 



.219 



PRINTERS 

Citoh 851 OAP.... 299 

Legend 1080 239 

Citoh7500AP....219 

Epson Call 

Tosfiiba1351 Call 

Buy the print shop for 27.95 with the 
purchase of any printer. 



Tostiiba1340 559 

Legend 880 219 

Legend 1080 239 

Panasonic 1090 . 199 
Panasonic 1091 . 269 
Powertype 309 



MODEMS 

Hayes Smart- 
modem 300.... Call 
Mark XII/1 200 Baud 
Call 



MPP 1000 E.... 89.95 
R-Verter Modem 

Adaptor 39.95 

Volksmodem 300 . . 59 
Volksmodem 1200 189 



PRINTER INTERFACES 

Aid Interfast I 99.95 U-Print A/16K Buffer 79.95 

MPP 1150 64.95 U-Print A/32K Buffer 99.95 

U-Print A 59.95 U-Print A/64K Buffer 109.95 



SUPER SPECIALS 



Archon . 
Archon II 
Mule 



Realm/Impossibility 19.95 Seven Cities of Gold 24.95 
Murder/Zlnderneuf . 19.95 Financial Cool(bQol( 29.95 



. P_« Bounty Bob Striltes CompuServe Starter Ultima ll-D — 37.95 

^" ' ^ Bacl<- Cart .... 27.95 Kit 21.95 Ultima lll-D .... 37.95 

Construction 19.95 ctarlpamiP . ... .« ~- - 

IConstructionl9.95 Dow Jones Starleague Letter Perfect-D 39.95 

lOne 24.95 Starter Kit.... 21 .95 Baseball-D/T .. 20.95 pata Perfect-D 39 95 

Cities of Gold 24.95 Starbowl „/^ ^u r. x « • 

;iai CooitbQoi( 29.95 Football-D 20.95 P-Q- 'he Party Qui? 

♦EFFECTIVE NOW THRU JULY 31, 1985 29.95 



ELECTRONIC ARTS 



A T 

ACTIVISION 

Dccalhoton-Carl 19.95 

Hero<;arl 19.95 

Pitfall ll-Carl 19.95 

River Raid-Carl 14.95 

Designer's Pencil-Carl 19.95 

Space Shuttle-Carl 19.95 

Ghoslbuslers-D 24.95 

Great American Cross Countrv 
Race-D 20.95 

AVALON HILL 

Call for items and prices 

BRODERBUND 

Banl< street Writer-D 49.95 

Lodemnner-O 23.95 

Mask of the Sun-D 27.95 

Operation Wtiic1wind-D 27.95 

Spelunker-D 20.95 

Steltli-D 20.95 

Whistlers Brolfier 20.95 

Print Shop-D 34.95 

Serpent's Slar-D 27.95 

Print Sfiop Paper 16.95 

CBS SOFTWARE 

Call for ilems and prices 

DATASOFT 

Bnice Lee-D/T 27.95 

Leiter Wizard + Spell-D 54.95 

Conan ttie Baitarian-DfT .... 27.95 

MrDo-D/T 27.95 

Alternate Realitv-D 27.95 

EPYX 

Call for Hems and prices 

INFOCOM 

Dcadline-D 29.95 

Enctianler-D 23.95 

Infidel-D 29.95 

Planellall-D 24.95 

Sorcerer-D 29.95 

Starcross-D 29.95 

Suspended-D 29.95 

Witness-D 29.95 

SeaStalker-D 24.95 

Cullhroals-D 24.95 

SuspectD 24.95 

HitcWket-D 24.95 

2ori(l-D 24.95 

Zortlllor lll-D 27.95 

Vfebringer-D 27.95 



A R 

MICROPROSE 

Air Rescue l-D/T 23.95 

F-15 Strike Eagle-D/T 23.95 

Cnjsade in Europe-D 27.95 

Decision in Desert-D 27.95 

Kennedy Approacti-D 23.95 

MINDSCAPE 

Call ior items and prices 

MISCELLANEOUS 

Diskey-D 34.95 

Ultra Disassembler-D 34.95 

Codei»riter-D 69.95 

Star League Baseball D/T. , . .23.95 

Stat Bowl Foolball-D/T 23.95 

Master Type-D/Cart 27.95 

Flight Simulator ll-D 37,95 

S.A.M.-D 41,95 

Castle Wollenslcin-D 20.95 

CompuServe Starter Kil 27.95 

Home Accountant-D 49,95 

Megalontll-D 19.95 

Monkey Wrench ll-Cart 29,95 

Movie Maker-0 37,95 

Ultima lll-D 41,95 

Jupiter Mission-D 34,95 

BoukJer Dash-D/T 19,95 

Saaper Caper-Cart 34,95 

Miner 2049'er-Cart 34,95 

Spy Hunter-Cart/D 29.95 

Tapper-Carl/D 29,95 

Up 'N Down-Catt/D 29,95 

Pic BuiWer-D 27,95 

Aslrochase-D 19,95 

Flip-Ftop-D/T 19,95 

Sargonll-D/T 16.95 

Odesla Chess-D 49.95 

Millkinaite-D 27.95 

SpyvsSpy-D 23,95 

Adventure Wriler-D 27,95 

MMG Basic Compiler-D 69,95 

Summer Games-D 27,95 

Pilslopll-D 27,95 

Gateway 10 Apshal-Carl 27.95 

Montezuma's Revenge-D 27.95 

Dragon/Pern-D 27.95 

Adventure Masler-D 34.95 

Gel Rich Series-0 34.95 

MPP Modern Driver-D 19.95 

Frogger ll-Carl 24.95 

NelWorth-D 49.95 



I 



w 



MISC. (cont.) 

Slickybear-D 27,95 

(Dmnitrend Universe-D 69,95 

Space Beagle-D 23,95 

Adventure Wrtter-D 41,95 

Beachhead-D 23,95 

Letter Peilecl/ Spell-D 49.95 

Harcourt ; Bmce S.A.T- 59,95 

Dala-Perfccl-D 49,95 

Star Wars-Can 24,95 

S,AG,E, Graphks Edilor-D, , , 39,95 

Strip Poker-D 23,95 

Millionaire-D 27,95 

Scroll ol Abadon-D 23,95 



MISC. (cont.) 

Ultima IV-D 41.95 

Raid Over Moscoi«-S 27.95 

Micro-League Basebali-D , . , , 29,95 

Paper Clip-D 59,95 

Home Pak-D 34,95 

Ultima ll-D 41.95 

B-Graptl-D 49.95 

Trolls S Tribulalions-D 19.95 

BallBlazer-D 27.95 

Relurn On Fradalis-D 27.95 

Halley Projecl-D 29.95 

AslralRitl-D 27.95 

Back To Basic Accounting-D . , , Call 
Qberl's Qubes-D 20,95 



-EST. 1982- 



'^omput^biLitu^ 

P.O. Box 17882, Milwaul(ee. Wl 53217 

ORDER LINES OPEN 

Mon-Fri 11 a.nn, - 7 p,m, CST • Sat, 12 p,nn. - 5 p,m, CST 

To Order Call Toll Free 

800-558-0003 

For Technical Info, Order 
Inquiries, or for Wise. Orders 

414-351-2007 

ORDERING INFORMATION: Please specify system 
For fast delivery send cashier's check, money order or direct bank 
transfers. Personal and company checks allow 2 weeks to clear, 
Cfiarges for COD are $3,00, School Purchase Orders welcome. In 
CONTINENTAL USA, include $3,00 shipping per software order. 
Include 4% shipping on all Hardware orders, minimum $4,00, 
Mastercard & Visa please include card # and expirafion date. Wl 
residents please add 5% sales lax. HI. AK. FPO. APO. Canadian 
orders — add 5% shipping, minimum $5.00. All otfier foreign 
orders, please add 15% shipping, minimum $10.00, All goods 
are new and include factory warranty. Due to our low prices, all 
sales are final. All defective returns must have a return authoriza- 
tion number. Please call 41 4-351 -2007 to obtain an RA# or your 
return will NOT be accepted lor replacement or repair. Prices and 
availability are subject to change without notice. 



MISC. (cont.) 

Data Manager-D 19.95 

Electronic Checkbook-D 19.95 

Money Manager-D 19.95 

Qbert-Cart 24,95 

Popeye-Cart 24.95 

Slarfigllter Joystick 9.95 

Wko Joysticks Call 

Tac II Joysticit 14.95 

OPTIMIZED SYSTEMS 

Action-Cart 69.95 

Basic XL-Cart 54.95 

MAC/65-Cart 69.95 

MAC/65ToolKil-D 27.95 

Action Tool Kit-D 27.95 

DOSXL-D 27.95 

C65-D 59.95 

Writer Tool-Carl 69.95 

Basic XL Tool Kll-D 27.95 

SCHOLASTIC 

Call for items and prices 

SCREENPLAY 

Gall for items and prices 

SEGA 

Call for ilems and prices 

SIERRA ON-LINE 

Call lor items and prices 

SPINNAKER 

Adventure Creator-D 19,95 

Aerobics-D 23,95 

All in the Cotor Caves 19,95 

Kidwriter-D 21.95 

Trains-D 21,95 

Alphabet Zoo-Cart 19'95 

Delta Drawing-Carl 1 9,95 

Pacemaker-Cart 19.95 

Fraction Fever-Carl 19,95 

Grandina's House-D 1 6,95 

Kids on Keys-Cart 19,95 

KIndercomp-Cart 19,95 

Search / Amazing Things-D . .21 .95 

Snooper Troops #1.-0 21,95 

Snooper Troops #2-0 21 .95 

Sloty Machine-Carl 21 .95 



ATARI is a trademark 
of ATARI, INC. 



SSI 

Carrier Force-D 41.95 

Combat Leader-D/T 27.95 

Cosmic Balance ll-D 27.95 

Cosmic Balance-D 27.95 

Broadsk)es-D 27.95 

War in Russia-D 55.95 

50 Missbn Crush-D 27.95 

Questron-D 34,95 

Rails Wesl-D 27,95 

Computer Ambush-D 41,95 

Galactic Adventures-D 41 ,95 

Computer Baseball-0 27,95 

RelorgerSe-D 41,95 

Objective Kursk-D 27,95 

Breakthrough / Ardennes/0, , , 41,95 

FiekJ of Fire-D 27.95 

Imperial Gaiadium-D 27.95 

Oper Matkel Garden-D 34.95 

Kampfgmppe-D 41.95 

Computer Quarlerback-D ,,,, 27,95 

SYNAPSE 

Alley Cal-D/T 16,95 

BlueMax-D/T 23,95 

Dimension X-DT 23,95 

Orelbs-D/T 23,95 

Encounler-D/T 16,95 

Fort Apocalypse-DT 23,95 

Necromancer-D/T 23.95 

New Yori< City-D 19.95 

Pharoah's Curse-D/T 23.95 

Quasimodo-0.... 19.95 

Rainbow Walker-D/T 23.95 

Relax Stress Reduction Sys , , 79,95 

Shamus Case ll-DT 23,95 

Zepplin-D/T 23,95 

Synlile-D 34.95 

Syncalc-D 34.95 

Synlrend-D 34.95 

Synchron-0 27.95 

Syncomm-0 27.95 

Synstock-D 27,95 

Blue Max 2001-0 23,95 



D— DISK 

T— CASSETTE 

CART— CARTRIDGE 



lai'ge tar 
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suggested Reta 
it's done. i'UgS 

*"° o tout cor«P««' '"^ . ^„„ „day. «""= 

your area. 




The Home Accoiiniant hardware requirements: 48K Auri 800/800XL one or two disk drives, primer ( 132 Co! opiional ) 
The Home Aci.ouniant is a reRisiered trademark of Arrays. inc./Continental Stiftware. Atari is a registered trademark of Atari, Inc. 
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ON-LINE 



Getting in on the Action! 



by Russ Wetmore 



Action! is an Atari programmer's dream come true. 
It is a language not too unlike C or Pascal, but which 
compiles to very "tight" 6502 machine language. Clint 
Parker, the author of Action!, has fashioned a remark- 
able programming environment, where editor, com- 
piler and monitor are all resident at once. 

Write your program, compile it, rmi to test it, then 
dump right back into the editor with your source code 
intact, to start making corrections. I've done a cou- 
ple of major projects using Action! in the past year 
and can recommend it without hesitation to any seri- 
ous (or casual) Atari programmer. 

There are several caveats in creating really big pro- 
grams (larger than 16K) , because of the integrated 
environment. If you're planning to write such pro- 
grams, it's necessary to know how Action! creates 
object code from your source, in order to maximize 
memory usage. There are also a few bugs that need 
to be noted. 

In this article (and the one next month) , I'll show 
you some tricks I've learned to optimize Action!'s out- 
put. These comments all apply to version 3.6 — they 
may work on other versions of the compiler, but have 
not been tested. They also assume a working know- 
ledge of Action! 



Variable allocation. 

AJJocating free memory. 

There isn't a function in Action! that approximates 
BASIC'S FRE(O) command. It isn't as simple as check- 
ing the monitor to see where the end of yovir program 
is, because Action! tries to help you out by placing 
some non-initialized arrays beyond the end of your 
program code, instead of inside your program, where 
they're declared (specifically, CARD ARRAYs and, 
generally, BYTE ARRAYs over a page in length). 

Luckily, there's an easy method for determining 
where the end of the program and variable space ac- 
tually is. The first CARD ARRAY declared in a pro- 
gram is the last actually allocated during compilation. 



MODULE 



saMple 1 



CARD 

MEMT0P3S2E5, freeneH=C(ll 
CARD ARRAY 

EndOfPrograMd) 

PROC Hainc) 

freeMeM=MEMTOP - EndOfPrograH 
PrintFC'Total free Menory^y.UJ'.E", 
freeMeHJ 

RETURN 

Static ARRAY variables. 

Action! allows you a lot of choices when it comes 
to variable declai-ation. For exaraple, ARRAY vai-iable 
names are actually pointers to the ARRAY space. This 
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allows you to do such esoterics as: 
MODULE ; saMPie 2 

CHAR ARRAY 

stPl="This is a test, 



str2 



PROC Main CI 

str2=strl 

PrintECstr2J 
RETURN 

When you run the program, you'll find that strl 
and str2 both "equal" the same string. This is possi- 
ble because Action! also allocates a pointer to the AR- 
RAY, in addition to the ARRAY data itself. When you 
assign str2 to strl, you're actually just assigning str2's 
pointer equal to strl's, which is pointing to the AR- 
RAY data. 

In many cases, though, this overhead costs mem- 
ory for arrays that you're never going to reassign, 
such as string constants. Also, if you were to refer- 
ence the ARRAY name in a code block, you'd have 
to go through contortions in order to get to the actu- 
al data, because the ARRAY name equals a pointer 



to the data, which you'd have to access indirectly. 
Clint very thoughtfully put in a construct that allows 
you to declare ARRAY variables without the associ- 
ated pointer. Declare the ARRAY with a predefined 
length of 0. For example: 

CHAR ARRAY 

strlfe>="This is a test." 

You won't be able to reassign strl (you'll get an er- 
ror if you try), but you will have saved 2 bytes you 
probably never would have used, anyway. You'll also 
save 2 bytes every time you reference the ARRAY, 
because Action! will compile the reference as imme- 
diate loads of registers, as opposed to indirect fetches 
from memory. For example: 

MODULE ; saHPle 3a 

CHAR ARRAY 

strl="This is a test." 

PROC Maine) 

PPintECstrl) 
RETURN 

compiles to: 



WHAT IS 
CHECKSUM DATA? 



Most program listings in ANALOG Computing are followed by a table of numbers appearing as 
DATA statements, called "CHECKSUM DATA." These numbers are to be used in conjunction with 
D:CHECK and C:CHECK (which appeared in ANALOG Computing issue 16 and the ANALOG 
Compendium) or with Unichecl< (from issue 24). 

DiCHECK and C:CHECK (written by Istvan Mohos and Tom Hudson) and Unicheck (by Tom 

Hudson) are designed to find and correct typing errors when readers are entering programs from 
the magazine. For those readers who would like copies of these articles, you may send for back 
issue 16 or 24 ($4.00 each) or the ANALOG Compendium ($14.95 plus $2.00 shipping and han- 



dling from: 



ANALOG Computing 

P.O. Box 615 
Holmes, PA 19045 « 
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MAIN LDA strl 

LDK Strl+1 
J5R PrintE 

RT5 

whereas the following: 

MODULE ; SaHple 3b 

CHAR ARRAY 

strlCO}="This is a test." 

PROC HainO 

PrintECstrlJ 
RETURN 



compiles to: 



MAIN LDA tt<Strl 
LDK t»>strl 
J5R PrintE 
RTS 



For similar reasons, you may save memory if you 
predeclare aJJ your variables, ARRAYs or otherwise. 
For example, when you declare a BYTE variable, you 
can set its memory address in the declaration. Any 
va:'iables that follow it in the same statement, though. 
have extra overhead associated with them. (You can 
see this effect in the following example.) To test all 
of these constructs, you can compile a test program 
then execute the cormnand ?$493 from the monitor, 
to see the program's length. Try this with the follow- 
ing two examples: 

MODULE ; Long exanple 

BYTE 

C0L0R1=S2C4, i, j, k 
CARD 

MEMT0P=S2E5, C, d, e 
CHAR ARRAY 

strl="Testl", str23"Test2" 

PROC MainO 
RETURN 



MODULE 



Shorter exanple 



BYTE 

C0L0R1=S2C4, i=I01, j= 101 , k= 103 
CARD 

MEMT0P=S2E5, C=tO], d:=[01, e= 103 
CHAR ARRAY 

strlCO)="Testl", str2(0}="Test2" 

PROC Main(} 
RETURN 

You'll find that the second example ends up being 
19 bytes shorter than the first. 

A siring shorfciii. 

If you work with strings at all. you probably know 
that the length of a declared string is always the first 
("zeroth") byte of the ARRAY. As such, you probably 
use a construct similar to: 



MODULE ; SaHple 4a 

CHAR ARRAY 
strl="Test" 

PROC MainO 

PrintFC'Length of XS is y.uy.E", 
strl, strlfO>) 
RETURN 

You can save considerable memory (11 bytes each 
occurrence!) by declaring a separate BYTE variable: 

MODULE ; SaHple 4b 

CHAR ARRAY 
strl="Test" 

BYTE 

strllen=strl 



PROC MainO 

PrintFC'Length of xs is 
strl, strllenJ 
RETURN 



y.UY.E" 



By making the declaration strlJen = sti'l, we're set- 
ting strllen's memory location equal to the "zeroth" 
byte of strl, hence strllen will always be equal to the 
length of strl (if you don't point strl elsewhere). The 
reason for the memory savings is simple. In the first 
example, the compiler is given the address of the stai't 
of the ARRAY and an offset to the actual byte desired. 
This compiles to something similar to: 

LDA Strl ;Fetch address of array 

STA 5ae ;Save for indirect ref 

LDA strl+1 ;Fetch high byte 

STA SAF ;Save, . . 

LDY tto ;Me want O'th elenent 

LDA cSae),y jFetch String length 

If we declarea I3YTE variable outright, though, it 
will already be pointing to the proper memory loca- 
tion, and no calculation is needed to find it. Thus, 
the compiler produces something like: 

LDA Strllen ;Fetch string length 

which, I think you'll agree, is much cleaner. You can 
apply this prinpiple to an}^ portion of a declared Al^- 
RAY that isn't going to move, that you need to access. 

PROC and FUNC addressing. 

In the Action! manual, reference is made to "ad- 
dressing routines." Besides the example given, there's 
little said about how useful this construct can be. 

Forward references. 

Action! is a one-pass compiler. Most compilers use 
a two-pass method, where the entire source program 
is scanned first to build a symbol table of variable 
addresses. Thus, on the second pass, if a variable is 
used before it is declared, the compiler can look it 
up in the symbol table to find its address. 

Action!, however, only makes one pass through a 
program for speed reasons. This means that every 
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ON-LINE continued 



procedure or function is supposed to be previously 
declared before you reference it. Sometimes this isn't 
feasible, but how do you get around it? 

One other feature of Action! is the ability to re- 
assign PROCs and FUNCs to different memory loca- 
tions from where they are first compiled. If you run 
the following example: 

MODULE ; SaHple 5 

PROC NUMlC) PrintEC"OHE"J RETURN 
PROC HUM2C) PrintE("THO"J RETURN 



If you were to do the assignment DUMMY= Main, 
what the compiler would actually produce is: 



PROC Main(} 
Nun2=NUHl 
RETURN 



NUH2 C] 



you'll get the result one printed to the screen, be- 
cause we've "pointed" Num2 to Numl's address. Us- 
ing this same concept, we can forward reference a 
PROC or FUNG before it is declared! 

MODULE ; SaHple 6 

PROC DUMMY O 

PROC NunlC) DUMMY (} RETURN 

PROC Hun2 PrintEt"THO"> RETURN 

PROC Hain(} 

DUMMY=Nun2 Nunl (} 
RETURN 

In Numl, we've actually forward referenced Num2 
indirectly, by setting DUMMY to be equal to Num2. 

An indirect detriment. 

Unfortunately, as in the case of non-initialized AR- 
RAYS, the overhead for such indirection is the default 
case. I have very rarely used the addressing feature 
and, even then, only in cases where I was too lazy 
to redo the necessary routines properly. 

Action! compiles normal PROC references in a 
manner similar to this example: 

MODULE ; Sanple 7 

BYTE 

test 

PROC DUMMY C) 
RETURN 

PROC Maine) 

PrintBECtest) 
RETURN 



test 



.D5 1 



OUMMYvec JMP DUMMY 
DUMMY RT5 

Mainvec JMP Main 
Main LDA test 

J5R PrintBE 

RTS 



LDA 
STA 
LDA 
STA 



tt<Main 
DUMMYvec+1 
tt>Main 
DUMMYvec+2 



so that the resulting code at DUMMYvec would ac- 
tually become JMP Main. If you don't ever use this 
feature, though, every time you declare a PROC or 
FUNC, you're actually throwing in a JMP to the next 
instruction. 

The way to avoid this automatic inclusion of the 
JMP command is to use the construct: 

PROC procnaHe=»C) 

You save three bytes and a little overhead in speed 
when you declare routines this way. One important 
note — this construct will not work if you're passing 
variables to a routine, miless the first thing encoun- 
tered in the routine is a code block. This is because 
of the way that Action! handles saving its zero-page 
working variables. 

Modularizing programs. 

You can also use this construct to "modularize" 
your programs. This is important if you're trying to 
compile large programs. Frequently, you'll run out 
of symbol table space or, worse yet, run out of mem- 
ory to compile to because the cartridge eats 8K of 
space itself, in addition to other overhead. 

You can compile all of your constant strings and 
low level routines, for example, separately from your 
main program and reference them in your program 
through equates and routine addressing. You can then 
use the SET command in the second module to com- 
pile the second module above the first, then append 
your files together to get the final object file. I'll go 
more into detail on how to do this next issue. 

Also, next time I'll cover ARRAYs of ARRAYs 
(string ARRAYs, for example), an Action! version of 
BASIC'S "ON X GOSUB" and "ON x GOTO" com- 
mands, plus other surprises. D 

Russ Wetmore has been involved in the home com- 
puter industry /or over six 3^ears. He's probably most 
widely known for his hest-seUing, award-winning 
Atari game program Preppie! He has also shown his 
talent as a composer/arranger whose M'ork has been 
heard on national TV. Russ is President of Star Sys- 
tems Software, Inc., a research and development /irm 
specializing in entertainment and home productivity 
programs for a host of computei-s. 
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A 

ATARI 

$69.95 (Rom) 

$49.95 (D or C) 



Vastly SUPERIOR to any translation programs 

available! FOI^ ATARI 

1200XL/600XL/800XL VJith 64K, 

(Please specify computer model number!) 



THE 

XL "FIX"! 



A 

ATARI- 

$69.95 (Rom) 
$49.95 (D or C) 



The Atari XL series computers represent power, soptiistication, and 
flexibility virtually unrivalled in todays Home Computer Market. 
Witt! "approximately" 30-40% of existing software being "incom- 
patable", a real, and serious problem exists. Because of ttiis we 
hiove developed THE XL "EIX"! 
ADVANTAGES over ctieaper "translation products": 



, an estimated 



1 Tlie XL "FIX"! is capable of fixing more software . 
30% more software! 

2. The XL "FIX"! is available in DISK, CASSEHE, and now ROM! 

3. XL "FIX"! versions fix ALL THREE types of software (Disl< - Cassette - 
and Cartridges!) 

4. Thfe XL "FIX"! (disk or cassette) odds OVER 4K of usable RAM to your 
computer (anyone using Data bases or Word processors wii I really 
appreciate this feature!) 

5. You never have to hold the OPTION button down on 600XL or 
800XL computers! 

6. VERY IMPORTANT! You need to load the XL "FIX"! only once ... you 
can change disks, cassettes, or cartridges without rebooting the XL 
"FIX"! each time (disk or cassette)! 

7. The ROM version is instantaneous upon computer power up, has a 
high speed cursor, is instantly switchable to your original operating 
system, will work with 16K 600XL's, and more! 

The XL "FIX"! .... another SUPERIOR product! 64K required! 
DISTRIBUTOR/DEALER inquires welcome 



Mastercard-Visa-Money 
Order or Cashier Checl<. 
Phone (716) 467-9326 

Please specify computer 
model number! 



Send $49.95 (S69.95 for Rom) 
plus $4 shipping and handling 
(N.Y.S. residents please add 7%) to: 
COMPUTER SOFTWARE SERVICES 
P.O. Box 17660 
Rochester, New York 14617 



A 

ATARI 

ONLY 

$49.95 



PROTECT your DISK programs and 
files BEFORE lending them out! 

THE 

"PROTECTOR"!^ 



A 

ATARI 

ONLY 

$49.95 



Includes hardware and software! The "PROTECTOR" 
produces a true BAD SECTOR GENERATOR which will allow you 
to create BAD SECTORS wherever you wish (approximately 10 
per second!). You'll never have to fool with ridiculous speed 
adjustment or tape jerking "schemes again! Simple do it 
yourself installation requires 15 to 20 minutes! 

The DISK software is the most versatile that we've ever seen 
and it's lightning FAST! Allows you to move and rearrange data 
anywhere on the disk, scrambles directories making them un- 
accessible to others, and offers INSTANT mapping of file disks 
(requires one second for ENTIRE diski). Simple operation. 

All these features are done from a 720 sector FULL VIEW 
map for total operator viewing and simplicity! 



Multiple drives 
Digitial SECTOR indicator 
Directory scrambler 
Moves/arranges data 
Selectable read/write 
Selectable start/end 
Hex conversion 
Disk Duping 



Disk mapping 
Instant map 
Compaction 
Fast formating 
Auto-formating 
Bad sector memory 
Instant restart 
Multiple copy function 



DEALER/DISTRIBUTOR INQUIRIES WELCOMEI 

Our other fine products include 
THE "PIU" and THE "SIIENCER". 



Send $49.95 plus S4 shipping 
and handling (N.Y.S. resi- 
dents add 7% soles tax) to: 
COMPUTER SOFTWARE 
SERVICES 
P.O. Box 17660 
Rochester, New Yoik 14621 
Phone Order: 
(716) 467-9326 



Mastercard-Visa-Money 
Orders or Bank Checks. Atari 
is a TM of Atari Inc. The 
"PROTECTOR" is a TM of 
COMPUTER SOFTWARE 
SERVICES (division of S.C.S.D., 
Inc.) 100% WARRANTY 
(replacement only - no 
refund policy.) 



A 

* y • Ql . For years they said it couldn t be done . 



THE 

"IMPOSSIBLE"! 



® they claimed! 



A 

ATARI 



ONLY 

$149.95 



Backup almost any disk currently available (even heavily protected programs) with an UNMODIFIED disk drive! $i 49.95 

Works with ANY disk drivel ', 

PURPOSE: The "IMPOSSIBLE" was developed in response to the estimated half million disk drive users that own a drive other than the Atari 810 (Indus, Per- 
com, Trak, Rana. Astro, etc.) that wish to BACK UP their protected software. Due to a radically new technology developed by Computer Software Ser- 
vices, modificotion to your disk drive has beeneliminated! The advantages ore obvious! Drive warranties are not violated, the chance accidental 
damage has been eliminated, etc., etc. 

OPERATION: The "IMPOSSIBLE"! consists of a disk program (unprotected so you can make as many backups as you wish) and a 4K STATIC RAM pack 
which is inserted intoyour computer (no soldering!)The"IMPOSSIBLE"! wii! read your program disk and then re- write it in an unprotected format! You may 
make additional backup copies using a sector copier or even regular DOS! Because your backup copy no longer has BAD SECTORSor EXOTIC FORMATS, 
the program data con now be manipulated into DOS compatable files (even double density!), transfered to cassette, etc. (with the aid of our Satellite 
programs!) No user programming knowledge required. A few programs require logical thinking. 
FEATURES: 1 Backup protected disks 5. AFSD-Automatic FUZZY Sector Discriminator 

2. Handles most MULTI-LOAD programs 6. Expands computer memory to 52K usable 

3. Mokes DOS files (with Satellite option) 7. Simple NO SOLDER installation 

4. Up to 90K data input capable 8. Satellite expandable 

PROJECTED SATELLITES: A "COMPACTOR" program which will convert your program into DOS compatable tiles (double density compatable!) for the 
storage of severo! programs on one disk. A "COLUMN 80" program for Word Proccessing, etc. It allows 80 columns on the screeni The "XL-MATE" will allow 
programs made with your 400/800 "IMPOSSIBLE"! to now play on your XL Com>puter! The METAMORPHOSES II program will oiiowyou to convertyour pro- 
tected CASSETTES into disk DOS files and vice-verso All satellite programs must be used with inconjunction with The "IMPOSSIBLE"! 
REQUIREMENTS: The "IMPOSSIBLE" diskette, the 4K STATIC RAM pack, a 400 or 800 computer (please specify!) with 48K and "B" Rom's. NOTE! The very old 
ATARI computers were shipped with "A" Rom's which had some serious "Bugs". Even if you don't own an "IMPOSSIBLE," you should upgrade to "B" Rom's 
(simple to install!) We hove them available at a very inexpensive price. CALL US! "XL" version available soon! 

NOT A PIRATING TOOL: We at C.S.S. did not design The "IMPOSSIBLE"! to put Software Manufactures out-ot-business overnight! Nearly all of our products 
hove been "ripped-off" by industrv parasite who have little or no ability to develop a product of their own so we con sympathize with their dilemma. All 
C.S.S. products have built-in safe guards which prohibit their use for flagrant pirating. The "IMPOSSIBLE"! is no exception! While The "IMPOSSIBLE"! back- 
up the most heavily protected programs, it also checks to see that the 4K STATIC RAM pock is installed before allowing the backup copy to 
execute! 



EXAMPLES: The "IMPOSSIBLE"! has been tested on 300 of the most pop- 
ular ond heavily protected programs we could find. With nearly 4000 
programs for Atari, we DO NOT guarantee that it v/ill backup all pro- 
grams in the post-present-ond future! We will supply updates at S6 each 
(non-profit!) if and when necessary. Programs we have successfully 
backed up include: Blue Max, Visi-cal, Archon, Mule, File Manager 800 
(-, Syn Calc, Syn File, One on One, 7 Cities of Gold, Super Bunny, Load 
Runner, Drol, and Gumboil iust to name a few! 



Mosfercard-Viso-Money 
Orders or Cashier Check. 
Phone:(716)467-9326 

Please specify computer 
model number! 



Send $149.95 pius 

$4 shipping and handling 

(N.Y.S. residents please add 7%) 

COMPUreR SOFTWARE SERVICES 
P.O.BOX 17660 
ROCHESTER, N.Y. 14617 
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64K Disk 

800XL w^imm^M 



Home-made 

TRANSLATOR 



by Angelo Giambra 



By now everyone who owns an Atari XL computer 
has heard of the "translator." It's software that loads 
into your XL and makes it think it's an Atari 800. 
It was developed because many games and software 
products have compatibility problems running on the 
XL. Versions of different translators can be purchased 
for from $9.95 to $69.95. Some of the more expen- 
sive ones boast that they give your XL an extra 4K 
of useable RAM. 

If you have an 800XL with a disk drive, and if you 
have access to an older 800 machine, you can create 
your own Home-Made Translator that's better than 
the "official" translator disk from Atari. Why better? 
Three reasons. 

First, the Atari translator comes as a boot disk. 
That is, you can't use the disk for storage of any files. 
'Vbur Home-Made Translator is an AUTORUN.SYS 
file, leaving plenty of room on the disk. 

More importantly, the H-M Translator will free up 
4K of RAM, just like the more expensive translators. 
VViien you use it with software like Letter Perfect, 
you'll be able to create larger documents in memory. 

Third, you only have to boot it once. With the Atai'i 
translator every time you want to load different soil- 
ware you must first reboot from the translator disk. 
Your H-M Translator will allow you to switch soft- 
ware without rebooting the translator software. 



If you belong to an Atari users group you should 
have no problem locating someone who owns an 
Atari 800. Or you may have a friend with one of the 
older machines. If so, here's all you have to do. 

Home-Making it. 

Key in the BASIC program in Listing 1 and SAVE 
it on your disk. (You may key it in on either an XL 
machine or an older machine.) Now, gain access to 
an 800 computer with a disk drive. The older ma- 
chine must be equipped with version B of the oper- 
ating systein. To check which version the machine 
has, key in the following from BASIC: PRINT PEEK 
(58383). A should print if you have version B. If 
you get a 56, you have version A and must use a dif- 
ferent machine. 

Boot the computer from any DOS, then LOAD and 
RUN the program you keyed from Listing 1. It will 
create an AUTORUN.SYS file on your disk. This is 
your H-M Translator. Here's how to use it. 

Place the disk containing the AUTORUN.SYS file 
in your disk drive and boot norinally. If your soft- 
ware needs the BASIC cartridge present (or you're 
using some other cartridge which boots from disk), 
do not press the OPTION key while booting. Other- 
wise, hold the OPTION key down until you hear the 
drive begin to boot. 

When the system boots, the message PRESS SE- 
LECT will appear on your screen. If you didn't press 
the OPTION key, you will also see the message CAR- 
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TRIDGE PRESENT. Remove the disk containing the 
H-M Translator. If your software's on disk, insert 
the softwai-e disk and press the SELECT key. If your 
software is on cassette, press the SELECT key, then 
hold down START. 

The version B operating system from the older 
machine will take control of your machine by dis- 
abling the built-in OS ROM. The default back- 
ground color will change to a darker blue, mak- 
ing it easy for you to tell when the H-M Trans- 
lator is present. 

Your system will begin booting from the software 
disk or will beep, signalling you to press RETURN for 
a normal cassette boot. (It isn't necessary to hold 
down the OPTION key during this second boot 
process.] A good many software products which 
don't run on the XL machine will run when using 
the H-M Translator. 

Even i-f your software does run on yom- XL, you 
may want to use this same procedure, to take advan- 
tage of the extra 4K of memory the H-M Translator 
gives you. For instance, you may prefer running Let- 
ter Perfect under the H-M Translator to create larger 
documents in memory. 

The extra 4K of memory is gained because the OS 
from the older 800 machine uses only lOK of RAM. 
The newer OS in the XL uses 14K of ROM. The Atari 
translator incorrectly points the RAMTOP register to 

(continued on next page) 




AngeJo Giambra is a Senior Analyst/Programmer for 
Marine Midland Bonk in New York. With a B.A. in 
English Literature, he has been in the data process- 
ing field for eight years. An avid Atari hobbyist and 
incessant tinkerer, he en;oys writing machine lan- 
guage utilities and extensions to the OS and DOS. 
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hex $C0 instead of hex $D0, leaving the 4K block of 
memory beginning at $C000 unavailable. Our H-M 
Translator remedies this by correctly pointing to the 
higher address. 

Now comes the good part. When you use the Atari 
translator you cannot press SYSTEM RESET, since 
this returns your XL to its built-in operating system. 
But your H-M Translator lets you simulate a SYS- 
TEM RESET by pressing OPTION, SELECT and 
START simultaneously. 

So, if you're in the middle of a game and want to 
switch to a different one, you simply insert a new 
game disk into your drive, then press OPTION, SE- 
LECT and START together — your system will reset 
and begin booting from the new disk. 

To boot from cassette, press the three RESET simu- 
lation keys, release OPTION and SELECT, but con- 
tinue holding START. Youi' system will beep and wait 
for you to press RETURN. Never press SYSTEM RE- 
SET, or your XL will return to its built-in OS. 

Note: the H-M Translator can simulate a SYSTEM 



RESET because of a minor change to the deferred ver- 
tical blank interrupt (VBI) service routine. As long 
as the software you're using doesn't disable this VBI, 
it will work. In testing, I found that some software 
substitutes its own VBI routine, so the RESET won't 
always work. You should have no trouble with most 
software, however. 

Also, be aware that the H-M Translator only gives 
you 4K of extra RAM if you boot your system with- 
out BASIC (by pressing the OPTION key during the 
initial boot). 

If you have a very steady hand and are a bit lucky, 
you can even run cartridges which do not boot from 
disk under the H-M Translator. Here's how. After your 
H-M Translator is loaded into memory, press OP- 
TION, SELECT and START together, then release OP- 
TION and SELECT. The system will beep, preparing 
for a cassette boot. 

Slowly insert a cartridge into the cartridge slot un- 
til you feel it touch bottom. Then quickly and firm- 
ly push it into place. If you don't do this part just 



DISK WIZARD II 

© 1984 


BASIC PLUS 

© 1985 


THE MOST COMPLETE UTILITY PACKAGE 
FOR ATARIXOMPUTERS AT ANY PRICE 

100% MACHINE LANGUAGE • SINGLE LOAD • MENU DRIVEN 

THIS USER-FRIENDLY PACKAGE INCLUDES THE FOLLOWING POWERFUL 
PROGRAMS FOR THE ATARI'400/800/XL SERIES COMPUTERS (40K REOUIRED) 

DISK BACK-UP - SINGLE/DOUBLE DENSITY • SUPPORTS 1 OR 2 DRIVES 
• ALLOWS BACKUP OF DISKS PROTECTED BY BAD SECTORING • FAST COPY 
OPTION • SECTOR STATUS SUMMARY • OPTIONAL PRINTOUT OF SECTOR 
STATUS • DISK MAPPING 

DISK EDIT — SINGLE/DOUBLE DENSITY • DISPLAY/MODIFY/PRINT ANY SEC- 
TOR • SECTOR DISPLAYED IN HEX ASCII/ATASCII • WORKS WITH ANY FOR- 
MAT • SCAN SECTORS FOR A SERIES OF BYTES OR A STRING • DISPLAY/ 
PRINT DIRECTORY • TRACE/REPAIR FILE LINKS • RECOVER AND AUTOMA- 
TICALLY VERIFY DELETED FILES • FORMAT DISKS WITH AUTOMATIC LOCK 
OUT OF BAD SECTORS • DECIMAL/HEX NUMBER CONVERSION 

DISASSEMBLER - single/double density • disassemble from disk 

BY sector numbers • DISASSEMBLE COMPOUND BINARY FILES BY FILE- 
NAME • OUTPUT TO SCREEN OR PRINTER • SELECTABLE MNEMONIC 
DISASSEMBLY WITH OVER 400 STANDARD ATARI MEMORY LOCATION NAMES 

DISK SPEED — VERIFIES/ALLOWS ADJUSTMENT OF DISK SPEED • BAD SEC- 
TORING (S10 ONLY) 

C/%1^95 SHIPPING & HANDLING 
^ ^y INCLUDED 


ALL NEW FOR THE ATARI* 
400/800 AND XL COMPUTERS 

ALL THE FUNCTIONS THE PROGRAMMER NEEDS 
FOR FASIhR, MORE EFFICIENT PROGRAMMING IN BASIC. 

• 100% MACHINE LANGUAGE • DISK DIRECTORY 

• PULL-DOW/N DISPLAYS • DOS FUNCTIONS 

• AUTOMATIC LINE NUMBERING * i?!?-!'^!^ CURSOR 

CONTROL 

• UP TO 46 DIFFERENT USER- , ^m i imf CRRnp 
DEFINED FUNCTION KEYS DEFINITION 

• TYPE-AHEAD CAPABILITY . INSERT MODE 

• RESTORE CHARACTERS • ADVANCED EDIT FEATURES 

• COPY CHARACTERS • QUICK ENTRY OF 

COMMONLY USED BASIC 

• BLOCK DELETE STATEMENTS 

• LINE RENUMBERING • EASY-TO-FOLLOW MANUAL 

C^rt95 SHIPPING & HANDLING 
**'^5^ INCLUDED 


ORDERING INFORMATION QRrjpR T"/ 


"^1 1 rnr~r~ 


For last delivery, send cenilied ^r\UlZr\ IV 
check or money order . Qr^/^ "7' 
MASTERCARD a VISA ACCEPTED. J _>-|| || |_ / 
(NY Resldenis add 7% sales lax| 1 \J\J\J 1 \ 


32-0320 /l^Mi/f'/ 

-"- V-'V-'t-Vy / SOFTWARE. IHC./ 


and charges lltfO. and N^ 
"ATARI is a regislered Irademark ol Alan Corp, 1 -31 5-4 


^„ ®f !4®'^'^ 100 QUARTZ WAY 
3B-0485 SYRACUSE. NY 13219 
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right, your system will lock up. If you were quick 
enough, you can now press OPTION, SELECT and 
START to boot into the cartridge. 

To switch to another cartridge, use the same proce- 
dure. Press the three reset keys, then hold START. 
You must pull the first cartridge out quickly and even- 
ly. I won't guarantee this procedure, but it works of- 
ten enough to be useable. 

If you're concerned about putting a cartridge into 
your machine while it's turned on, don't be. It's per- 
fectly safe, or Atari wouldn't have left an exposed slot 
where kids and adults who don't read manuals could 
blow cartridges left and I'ight. If you don't believe me, 
believe Bill Wilkinson. The above is a paraphrase 
of a comment he made on the very same subject. 

For you hai'd-core machine language programmers 
out there, here's an opportunity to really have some 
fun. If you have a good debugging tool, such as 
BUG65, you can create your own custom versions 
of the OS and try all kinds of weird and wonderful 
things. How? Simple. 

Boot from the H-M Translator disk into BASIC. 
Now get into your debugging software and snoop 
around the OS, using a disassembler and/or a copy 
of the OS listing (available from Atari). If you're us- 
ing BUG65, OSS can provide you with instructions 
on how to enter BUG65 from BASIC. Write for their 
latest bulletin. 

Remember, while you're under the H-M Transla- 
tor, the OS resides in RAM, not ROM. That means 
you can alter it! Of course, you must take great care 
when messing around with the OS, but you can do 
some pretty nifty stuff — like change the default back- 
ground colors or speed up the cursor, etc. 

The program in Listing 1 disables the key click by 
changing the JSR to this routine to NOPs. It then uses 
the addresses where the key click routine resides for 
a small addition to the VBI service routine. This rou- 
tine checks to see if OPTION, SELECT and START 
are pressed, and jumps to the power-up routine if 
they are. 

You can modify the OS using the built in assem- 
bler in BUG65, or if you're very brave, you can poke 
the changes in from BASIC. Once the OS is modi- 
fied, you can create a new H-M Translator by sim- 
ply running the program in Listing 1 again on your 
XL machine. It will copy the modified version of your 
OS down into a new H-M Translator file. 

You see. it just goes to show. Home-iuade is always 
better! [J 

fPrograiu listing starts on page 33) 
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MegaFont ][ + 

The Complete Program Lister 
and Graphics Dumper 
by Richard Rognlie and 
Randy Dellinger 
, . dandlast program llstar . . ." Creatlva Computing 
MORE FONTS — FASTER DUMP — FONT UPLOADER* 

Allows NEC, Prowriler, Epson (w/Gfaftrax, RX-BO, FX-80), Riteman, Gemini, Mannes- 
mann Tally, Panasonic & oilier compatible dot matrix printers todump Graphics 7+ and 
8 screens in 3 sizes (4 on Epson) and print all control and inverse characters in fonts 
provided or use your own New Features: Adjustable margins, FAST LISTER, Font 
uploader', adjustable line spacing, Font Splicer (combine 2 fonts together). 
•Prowriter8510APw/chlp, Epson FX-BC & Panasonic KX-P1092 

■IBK disk please specify printer Only $24.95 

Chip for Prowritei $ 1 5.00 



Printer Kitty Strikes Agalir 



Page Designer 

by Dennis Young and Len Dorfman 

Page Designer is one of the most useful graphic programs for the Atari computer. It 
utilizes the little used graphics 8 screen to create mixed text and graphics lor your 
printer. Page Designer can load graphic 8 screens and then modily them with the draw 
program included. Plus text can be added to the screen. Additionally. Page Designer 
uses two graphic 8 screens to create printer resolution 320 X 348. Text can be created 
using any of the included character sets or any that you create. An 80 column text mode 
is also provided. 

''8K disk Qniy 529.95 



Printer Partners 



MegaFont ][ + and Page Designeir 

both (or only $49.95 



The Ultimate Atari Database 



XLENT MeaaFiler 

by Jerry Kwit (Mode Mixer 2) 

"I don't belleva you can gat bettar valua for your 
monay . . ." ACE Newslattar 

"Its claim to lame Is the large amounts o( 
records It can handle." ANA106 

XLENT MegaFiler Is a very powerful and easy to use datatiase system that can handle 
over 1 500 records. Allows you to define a formula, modify database records, add or 
delete fields and modify field lengths. Features Report and Label generation. New 
Features: Sort on multiple fields, create report subfile. 
48K disk Only $29.95 




Add $2.00 iDf shipping and handling. C.O.D. ordars, $2.00 laa Is addad. 
Virginia resldants: Add 4% salas tax. Sand chack or monay ardar to: 

XLENT Software 

P.O. Box 5228 

Dept. B 

Springfield, Virginia 22150 

24 Hour Order Phone (703) 644-8881 

Dealer Inquiries Welcome 

CIRCLE #114 ON READER SERVICE CARD 



ANALOG COMPUTING 



JULY 1985 / PAGE 31 



1^ COMPUTER PALACE WE know atari! 




INDUS GT DISORIVE 

• Free Software 

• Double Density 

• 1-Yr. Warranty 

Our Most Popular Drive! 

We recommend and sell .more of these drives 
than any other. It's so quiet that you'll 
probably torgel you are using a disk drive. 
Flip-up dust cover. LED readout, and FREE 
SOFTWARE (DOS XL, Word processor, Data- 
base, Spreadsheet, Programming book by 
Dalsmosl ) .This package is hard to beat' 

New Low Price $259.95 



GAMES 

star Raiders 
Jousl 
RotJOlron 
Donkey Kong 
Dig Dug 
Defendei 
Ulysses 
Tennis 
Ultima II 
Ullimalll 
Bounly Bob 
Strip Poker 
Bridge 4 
Spy vs Spy 
CaslleWollensl 
Poker Sam 
Brisiies 
Culltiroals 
Enchanler 
ML BaseD.iil 
Cliess 7 
Checkers 
Pilslopi 

Compulei Amdu 
Broadsides 
kamplgruppe 
Advenlure Wnle 
All BaPa 

Return Hercules 
Savage Island 
Voodoo Castle 
Seciel Mission 
Dimension X 
^ompies 
Bruce Lee 
Conan 

Ghosl Busleis 
Arcnon II 



13.95 C 
35.70 C 
35.70 C 

27 90 C 
27.90 C 
17.95 C 
19 95 D 
13.95 C 
52 50 D 
39 95 D 
44.90 C 
31.50 D 
22 50 D 
25.90 D 
26.90 D 
22.50 D, 
26 90 D, 
31 50 D 
31.50 D 
35.10 D 
59.50 D 
44.90 D 
35.10 D 
52 50 D 
35.10 D 
52.50 D 
26 90 D 
26.90 D 

28 90 D 
17.90 T 
17 90 T 
17.90 T 
31.50 D. 
31.50 D, 
35 10 D. 
35.10 D 

26.90 D 
26.90 D 



EDUCA- 
TIONAL 

Hundreds ol Titles Please 
call us (503) 683-5361 

BOOKS 

MIsc: 

6502 Programming 18.95 



6502 Subroutines 

Advd Pro Tech At 

Advent w/Atar 

Assem Lan Progr 

Basic Alan Bas 

Basic Atari kids 
. Best Antic w/Dsk 
, Elementary Alar 

Tech. User Notes 26.90 



17.95 
14.50 
14.95 
15.95 
15.95 
12.95 
24.95 
14.95 



Assembler 
Basrc fast & Bel 
Basic Source Bk 
For Kids 8-80 
Games & Rec 
Graphics & Arc 
Playground 
Roots 

Sound & Graphrcs 
Users EncylopeO 
W/55 Programs 

Compute: 

2nd BK MachLan 
fFBOAlarr Graph 
J FBG Alarr Games 
TFBOAIarr 
Great ADV Games 
2nd Bkol Atari 
3rd Bk ol Alarr 



15.95 
19.95 
12.95 
15.95 
14.95 
16.95 
9.95 
14.95 
10.95 
19.95 
14.50 

14.95 
12.95 
12.95 
12.95 
12.95 
12.95 
12 95 



48K Disk 
$39.95 

Program Covers 
4 Disk Sides 




CALL US AT (503)683-5361 FOR INFORMATION 



• Outsmart Your Friends 

• Outwit The Dragon 

• Join The Quest 



A new concept In computer gaming. Intellectual challenge, strategy and arcade action Each 
player assumes the role ol a lord with a questing party ot three characters Complete the 
quesi, earn the most gold by answering questions and battling the dragon Win the (avor ol 
the king and thus, the game 
• Utility Disk: 1000 Atjdilional questions plus create your own... $24.95 



FREE CATALOG 1^^^ 



with any order , 
lirst purchase) 



or send $1 (refundable with 



You will receive the most com- 
pretiensive reference catalog 
available. Containing hun- 
(jreds of software and hard- 
ware listings with illustrations 
and descriptions, our main 
catalog will give you the 
answers you need. Join our 
mailing list and receive free 
flyers with updates and special 
offers. 




IF YOU DON'T HAVE OUR 

CATALOG... YOU'RE 

MISSING OUT! 



>*^ SUPER BUY— SUPER SPECIALS!! ""% 



-<>o- 




Protect Your 
Equipment 

Deluxe 

DUST COVERS 

Custom titled, attractive leather brown color 
•ATARI 400, 800. 600/800/1200XL. New 
XE8.ST. 410, 810. 1050, 1025, 1027, CX85 

• EPSON, GEMINI, PROWRITER printers 

• INDUS, RANA. PERCOiyi, TRAK disk drives 

Additional covers ordered 
at same lime 



ONLY 



$8.95 



EACH ONLY 



$7.95 



EACH 



We iust got a great buy on some "Arcaije Classics," and now we can pass the savings on to 
ou. All the games are on cartrjdue and available for only S5.95. Each 



Invaders 



If you survive the mazes. A unique sound and sight ex- The original video arcade in 
arena. Warlord dungeon, perience, just like the arcade, your computer! The alien as- 
and the pit, maybe you can Defeat the Gorfian forces, if sault grows stronger with 
defeat the Wizard ofWorl! you can!! each defense,!! 






NEW! 

RCP 
MODEM 

$79.95 



This compact, 300 baud, autoanswer/auto- 
dial modem com«s complete with software 
for uploading and downloading files, MO 
INTERFACE IS REQUIRED, just plug into the 
joystick port. Includes AC adaptor. 



BUSINESS 



rRfniwiz- 



PRINTWIZ 
$26.95 

By far our most popular graphics screen 
dump! It may be loaded with Basic, the as- 
sembler cartridge, or no cartridge at all. It 
occupies about 1300 bytes of RAM, and will 
dump most program screens even while the 
program is running. Complete with manual, 
demos, and text LISTER, Works with most 
popular printers. 



THE XL BOSS $79.95 
1200XL $89.95 

Now you can eliminate the need for a trans- 
lator disk by installing the XL Boss ROM 
•chip. It requires opening your Atari up and 
replacing the old OS chip. The explicit in- 
structions should give hope to those weak 
on mechanical aptitude. Once done, you will 
have the computer ATARI should have 
made! 



Assm Editor 
Monkey Wrcfi M 
Alanwriler 
Lelterperteci 
Spell Wizard 
ABC Compiler 
B/Graph 
PeachireeG/L 
^eachlree A/P 
Peachiree A/R 
Home Accountani 
Synlile 
Syncalc 
Synlrena 
Synslock 
HomeCalc 
Mac/&5 
Action 
Basic XL 
Wnler s Tool 
Tele-Talk 
Financial Cookdk 
Basic Cartridge 
Graphic Gener 
Microsfl Basic 2 

PARTS & 
MISC 

Disk Cleanei 
800 Power Supply 
lODisl< Mailers 
10 Generic Disks 
Ten Key Pad 
Touch TaPlel 
Compu-Seive 
ndus Df Slacker 
Oak Monilor Sid 
Pnnler Stand 



31.50 
2995 
39.95 
87.90 
44.90 
69.95 
62.50 
95.00 
95.00 
95.00 
67.50 
49.95 
49.95 
49.95 
35 10 
35.10 
87.90 
87.90 
69,50 
87,90 
44,90 
34.90 
29,90 
22.50 
55.00 



13.95 
24 95 
6.50 
13.95 
39.95 
54.95 
39.95 
19.95 
29.95 
24.95 



Disl( Banii(50) 
Disk Bank(35l 
Regular Joystick 
Deluxe Joystick 
Swivel Base 
Joystick Cord 
Joystick Handle 
Joystick Board 
J slick 12 Ext 
Surge Prolecior 
Printer Inlrlace 
64K lor 600X1 
Relax 
Sherlock 



15.95 

9.95 

9 30 

19 95 

39.95 

2 95 

1.49 

2.49 

995 

39 95 

49.95 

79.95 

99 95 

26.90 

SPECIALS 

Rally Soeedwav 19.95C 
Krazy Shool-out 17.95C 
Paciiic est Hwy 9.950 
Crosslire(T- I 9.95 
Match Racer 9.95D 



Bandils 
JawPreaker 
Easlern From 
Canyon ClmPI 
Pool 400 
Speedway Blast 
Repton 
Wavoul 

Cosmic Tunnels 
Steiiai Shuttle 
Pathlinder 
Mini-Word Proc 
Spelling BuilrJer 

(vtiner ZO'iger 
Choplitler 
Loids of Karma 



9.950 

9.95D 

9.95T 

Dl 9.95 

14.95C 

14.95C 

9.950 

9.95D 

9.95D 

9.95T 

9.95D 

4.9SD 

9.95D 

17.95C 

19.950 

9.950 



Disk T Tape 
C Cartridge 



New ATARI 130/520ST Computers 




128K-$399/512K-$599 

The current tiagsliip ol the Atari Family has 
arrived, utilizing the speed ol the lylotoria 68000 
CPU With 128K or 512K. you will have power at 
prices you wont believe And with a mouse, 
pull-down menus, windows, icon graphics and 
cut and paste teatures that allow you to integrate 
spreadsheet, text and graphic tiles, creative 
solutions have never been easier The guantities 
are limited, so place your order now to get yours 
as soon as possible 



DISK NOTCHER 
SPECIAL! 

Only 
$9.95 

Now use both sides of 
your diskettes 

Simply place tfie iJisk against Itie 
built-in stops and squeeze 




One of the most versatile data-base programs available. 

New Enhanced Version 2.0 
Includes: 



PriiitShop 



Features: 



' LIGHTNING FAST RETRIEVAL 
' FAST SORTS ON AI^Y FIELD 
' SUPPORTS UP TO 4 DRIVES 
■ SINGLE OR DOUBLE DEMSITY 
' STORE ABOUT IZOO RECORDS 

PER DISK SIDE IN DOUBLE DENSITY 
' lytUCH mK' 



48K Disk 
$49.95 



• ON-SCREEN PROMPTS 

• HELP SCREENS 

• STATE ABBREVIATION TABLE 

• PRINT LABELS 1. 2. or 3-UP 

• REDEFINA8LE FIELDS 

• MERGE-CREATE COMBINATION FILES 

• DELETE DUPLICATE-AUTO Of MANUAL 



New! Mail Merge Utility $19.95 

Now you can use your Super Mailer + records with Atarwriter an6 Letter Wizard- 
Use names and addresses to create form letters. Input special characters into the 
word processing programs to tell Super Mailer+ where to put the intormation. It's 
as easy as 1 ■..2...3' 



; Need a greeting card, letterhead, logo. 
1 ad flyer, announcement, note card, station- 
' ery, report cover, award certiticate. sign or 
I bulletin^ Make one in minutes' How about a 
jumbo banner"? Simple." Make it 30 feet long tl 
you like. With only a few key strokes, you can 
I write, design and print like a pro All you need 
lis in the program: 8 typestyles m multiple 
sizes with solid, outline and 3-D format. 
] border designs, background patterns, and a 
I wide range of pictures and symbols Also in- 
t eluded are The ability to superimpose text 
over any picture or design Use illustrations 
from other graphics programs Swirling ani- 
mations that you can freeze for background 



ffi designs. 



48K D S39.5D 



n 



COMPUTER e^ 
MLACE 



OPEN M-F. 9-6 Sal 10-4 (Pacific Time) 

2160 W lllh Avenue Eugene. Oregon 97402 




USE YOUR CREDIT CARD & CALL 

Toll Free 1-800-452-8013 
* ORDERS ONLY, PLEASE • 

There 's ne ver a penalty tor using your credit card! 
For information, Call (503) 683-5361 



SHIPPING INFO: Minimum $2 90 Ground, $4 75 Air Acluai 
Cost depends on weralil Caii (503) 683-5361 (or inlormation 
WARRANTY INFO: Everything Ihal we sell is warranlied t)y 
liie manufacturer if any item purchased from us fails to per- 
form properly when you receive it. call us at (503) 683-5361 
so that we can assist you No returned merchandise accepted 
without authorization Defective software will be replaced 
with another copy of the same program otherwise, no soft- 
ware is returnable 
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Translator continued 



Listing 1. 
BASIC listing. 

le 1=12288 

28 READ a: IF A=-l THEN 40 

38 POKE I,A:I=I+l:GOTO 20 

48 OPEM ttl,8,8,"D:AUT0RUN.5YS" 

58 PUT ttl,255:PUT «1,255 

68 PUT ttl,8:PUT ttl,56 

78 PUT ttl,255:PUT ttl,95 

88 X=U5RC12288} 

98 TRAP 128 

188 READ A 

118 PUT ttl,A:G0T0 188 

120 PUT ffl,224:PUT ttl,2:PUT 111,225: PUT 

ttl,2 
138 PUT til, 8: PUT ttl,48 
140 CLOSE ttl 

150 DATA 104,160,8,162,8,185,8,216,157 
,8,49,232,288,16,246,32,42,48,162,0,18 
5,0,216,157 

160 DATA 0,49,232,288,288,246,32,42,48 
,238,7,48,238,22,48,288,216,96,162,16, 
169,11,157,66 

178 DATA 3,169,8,157,68,3,169,49,157,6 
9,3,169,128,157,72,3,169,0,157,73,3,15 
2 72 32 

188 DATA 86,228,184,168,96,-1 
190 DATA 255,255,231,70,233,78,234,234 
,234,198,72,192,72,76,216,252 
288 DATA 46,81,48,81,32,68,242,63,82,6 
7,82,281,288,288,28,96 

218 DATA 183,82,184,82,288,218,116,82, 
118,82,76,63,242,18,89,18 
228 DATA 89,96,251,86,253,86,234,234,2 
34 , 195 , 94 , 195 , 94 , 144 ,216,92 
238 DATA 226,92,173,31,288,248,3,188.3 
6,2,76,119,228,131,82,133 
248 DATA 82,234,234,234 

258 DATA 0,48,216,48,169,12,141,66,3,1 
62,8.32,86,228,168,14,185,282,48,153,2 
6,3,136 

268 DATA 16,247,169,199,141,68,3,169,4 
8,141,69,3,169,3,141,66,3,169,12,141,7 
4,3,32,86,228 

278 DATA 169,11,141,66,3,169,152,141,6 
8,3,169,48,141,69,3,169,19,141,72,3,16 
9,8,141.73.3 

280 DATA 169.1,141,240,2,32,86,228,173 
, 1 , 211 , 41 , 2 , 288 , 23 , 169 , 171 , 141 ,68,3,16 
9,48,141,69.3 

298 DATA 169,28,141,72,3,169,8,141,73. 
3,32,86,228,173,31,288,281,5,288,249,1 
69,8,141,14,212 

380 DATA 141,14,210.173.1.211.41,254,1 
41.1.211,160.0.185,8,56,153,0,216,208, 
288,247,238,134,48 

318 DATA 238,137,48,288,237,76,119,228 
,125,29,29,29,127.127.80.82,69,83.83.3 
2,211,197.284.197.195 

328 DATA 212,155,29,29,127,32,32,32,32 
,32,32,40,67,65,82,84,82,73,68,71,69,3 
2,88.82.69 

330 DATA 83.69,78,84,41,69,58,155,88,4 
8.228,67,64,228,69,8,228,83,16,228,75, 
32,228 



CHECKSUM DATA. 

(see page 24} 

10 DATA 535,321,419,32,987,619,797,113 
, 473 , 638, 721 , 236 , 864 , 647 . 922 . 8316 



168 DATA 225.699.266.255,483,683,903,6 
79 , 631 , 531 , 149 , 297 , 180 , 538 , 778 , 7297 
310 DATA 300,8.921.1229 



Listing 2. 
Assembly listing. 



1 TRfiNSLATOR 


FOR ATARI BBBXL 


I by ft. 


BIftMBRS 




I THIS 


PROQRAn READS 


THE 


1 03 FROM THE 800 COMPUTER 


1 AND WRITES 


IT TO DISK 


1 EDUftTEa 






ICCMD 


_ 


*l>342 


) I/O COMMAND 


ICBAL 


« 


• a3-44 


I BUFFER ADDRESS 


ICBLL 


« 


*0348 


IBUFFER LENQTH 


BUFF 


m 


• 3100 


I BUFFER 


CIOV 


" 


»E436 


lOa I/O ROUTINE 


PUTC 


m 


»0B 


IPUT CHARACTERS 




»M 


*3000 






PLA 




IPULL BYTE OFF STACK 


INITY 


LDY 


»*00 


I INIT REGISTERS 




LDX 


»*00 




FILLBUF 


LDA 


*D800. Y 
BUFF, i 


IQET THE ATARI OS 




STA 


I AND PUT IN BUFFER 




INX 








I NY 








BPL 


FILLBUF 


IDO 12B BYTES 




J3R 


WRITEBUF ;WRITE IT 




LDX 


»*00 




ABAIN 


LDA 


»DSB0,V 
BUFF, X 


IQET NEXT 




STA 


I 128 BYTES 



I 



INX 

INY 

BNE AOAIN 

J3R WRITEBUF IWRITE IT 

INC FlLLBUF + 2 I INC ADDRESSES 

INC AQAIN-rZ 

BNE INITY I DO MORE 

RTS 



J STORE BUFF LENGTH 



WRITEBUF LDX »»10 (CHANNEL 1 

LDA »PUTC I PUT COMMAND 

STA ICCMD, X 

LDA • <BUFF I STORE BUFF ADDRESS 

STA ICBAL, X 

LDA » >BUFF 

STA ICBAL+l, 

LDA »*80 

STA ICBLL, X 

LDA te 

3TA ICBLL*1,X 

TYA JSAVE THE Y REBISTER 

PHA 

.JSR CIOV IDO 1/0 

PLA 

TAY J RESTORE Y 

RTS 





.OPT NO LIST 


1 TRANSLATOR 


FOR ATARI 800XL 


1 by A. 


BIAMBRA 




I INSTALL TRANSLATOR 




1 EQUATES 






HATABS 


„ 


»B31A 




ICCMD 




*0342 


1 I/O COMMAND 


ICBAL 




• 0344 


IBUFFER ADDRESS 


ICBLL 




• 0348 




ICftXl 




• 034A 




CIOV 




• E436 


IDS I/O ROUTINE 


RESET 




• E477 


IDS RESET ROUTI 


PUTC 




*0B 


I PUT CHARACTER3 


CONSOL 




• D01F 


(START BUTTON 


PORTB 




• D301 


iROn SELECT 


NMIEN 




• D40E 


INMI REGISTER 


IRQEN 




• D20E 


I IRQ REGISTER 


INHIB 




• 02F0 


ICUR30R INHIBIT 


CR 




• ?B 




DOWN 




• ID 


IDOWN ARROW 


TAB 




• 7F 




CLEAR 




• 7D 




f 


•■ 


• 3000 




t 


LDA 


»^0C 


I CLOSE EDITOR 




STA 


ICCMD 






LDX 


»0 






JSR 


CIOV 




1 RESET 


DEVICE HANDLER TABLE 


1 (NECESSARY FOR ATARIWRITER) 


I 


LDY 


#14 




DTRESET 


LDA 


DTBL.Y 






STA 


HATAfe3,Y 




DEY 








BPL 


DTRESET 




I 


LDA 


» <EDITOR SOPEN EDITOR 




9TA 


ICBAL 






LDA 


» >EDITOR 




STA 


ICBAL+l 






LDA 


• •03 






STA 


ICCMD 






LDA 


• •0C 






3TA 


ICAXl 
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Q 



END 

EDITOR 

DTBL 



Translator 



continued 



JSR 


CIDV 




LDA 


»PUTC 




STA 


ICCMD 


IPUT CHARACTERS 


LDB 


» <M3B 


1 STORE HESSABE 


BTA 


ICBAL 


; ADDRESS 


LDA 


» >I1SQ 




STA 


ICBAL+l 




LDA 


» <M3Q1 


-MSB 


3TA 


ICBLL 


1 STORE LENBTH 


LDA 


• >M3ai 


-MSB 


3TA 


ICBLL-M 




LDA 


• 1 


1 INHIBIT CURSOR 


3TA 


INHIB 




J3R 


CIOV 


(WRITE ME39ABE 


LDA 


PORTB 




AND 


• •02 




BNE 


WAIT 




LDA 


• <n3Ql 


I STORE ME33ABE 


8TA 


ICBAL 


(ADDRESS 


LDA 


» >M8ai 




3TA 


ICBAL+1 




LDA 


» <END-Maai 


STA 


ICBLL 


1 STORE LENBTH 


LDA 


• >END-nSQl 


STA 


ICBLLt-l 




J3R 


ciau 


■WRITE nESSASE 


WAIT LDA 


CONBOL 


I SELECT PRESSED? 


CMP 


»a 




BNE 


WAIT 


INOT YET 


LDA 


•a 




STA 


NMIEN 


I3HUT OFF NMI 


STA 


IRQEN 


IBHUT OFF IRO 


LDA 


PORTB 




AND 


t*FE 


(DESELECT OS ROM 


STA 


PORTB 




INITY LDY 


• 




MDUEIT LDA 


»38Be,Y 


(MOVE OLD Oa 


9TA 


«D8eie, Y 


( INTO RAM 



INY 

BNE MOVEIT 

INC MOVEIT-fZ I INC ADDRESBEB 

INC MOVEITfS 

BNE INITY 

JMP RESET (BO TO COLD START 

.BYTE CLEAR, DOWN, DOWN, DOWN 
.BYTE TAB, TAB, -PRESS SELECT- .CR 
.BYTE DOWN, DoftN, TAB 
.BYTE " (CARTRIDGE PRESENT)- 

.BYTE -E:",»'»B 

-BYTE »3«,*3«,»E4 (P: 



.BYTE »43,»4B.»E4 (C! 

.BYTE «43;»Be;»E4 (E: 

.BYTE »33,»ie,»E4 (3: 

.BYTE »4B,»2B,»E4 (K: 
.END 



PATCHES TO 800 OS 



) Bee 03 IS FIRST LOADED INTO RAM 

( AT »3S0a THRU •3FFF THESE PATCHES 

{ ARE THEN LOADED OVER THE CODE AND 

( IT IT THEN MOVED UP INTO RAM 

( BEBINNINB AT «DB00 



by A. 



RESET 
I 



BIAMBRA 

»- »4iE7 

NOP 

NOP 

NOP 

»- »48BE 

JMP »FCD8 

•- »31ZE 

J3R »F244 

»~ ♦323F 

CMP ••D0 

BNE »323F 
RT3 

•- »32i7 

BNE »3243 

•- •3274 

JMP •F23F 



NOP 
NOP 
NOP 

•- »3EC3 
.BYTE •90 

•- »3CDB 

LDA •D01F 

BED RESET 

JMP (»0224) 

JMP »E477 



(DON'T TOUCH ^0301 



(INTERCEPT VB 



(CHANOE ENTRY POINT FOR 
[SPECIAL ROUTINE 



(TOP OF RAM? 
(YES, RETURN 



(CHECK FOR RAMTOP 
(DISABLE BELL ROUTINE 
(NO KEYCLICK 

(NEW BACKOROUND COLOR 



(DO THEY WANT 
(SYSTEM RESET? 



NOP 
NOP 
NOP 
.END 



• 3283 



(DON'T TOUCH •0301 



FOR ATARI *400/800/1 200/600XL/800XL^ 



^m. [=!i3Sg 



For ATARI 800XL, 600XL with 64k. 
Replacement operating system to run the 
vast majority of all ATARI software. No 
translator or disk to load! 
Proper RESET operation especially impor- 
tant for programs like LETTER PERFECT, 
DATA PERFECT, TEXT WIZARD, etc. 
One touch access to extra RAM, all RAM. 
One touch BASIC on. 
Easy plug in installation. 

NOW INCLUDES DUAL OPERATING 
SYSTEM BOARD! 

'Includes MacroMon XL which is an ex- 
cellent, unique monitor for beginner and 
pro alike— written especially for the BOSS. 
$79.95 for 800XL/600XL with 64K*. 



% 



Uen 
acroware 




PFXMTi4IZ 



An all machine language text, 
graphics, mixed mode dump for EP- 
SON, GEMINI, NEC, PROWRITER, 
OKIDATA, M-T SPIRIT, 160L, 
KXP-1090, DMP-80, ISD 480, 
SEIKO/AXIOM CP550A. 
Self booting can be used while pro- 
gramming or even running other pro- 
grams. 

Works with or without BASIC, 
ED/ASM, PILOT, LOGO. Calendar 
generator. Horizontal format allows 
text to be continued in same direction. 
Change widths, height, center and 
much more from the keyboard or your 
program. Special handlers for PAINT, 
Micro-Illustrator, LOCO, Micro- 
painter, etc. Includes LISTER program 
for inverted and special characters plus 
demos and ideas. $29.95* 16K Disk- 
All Interfaces. 



diskwiz-ll 



Fast and easy to use repair, edit, ex- 
plore, dup, disk utility package. Single 
load, single or double density. Special 
printout capabilities. 
Repair or change of linked DOS2 or 
OSA-)-2 files, directories, dup 
filenames. Fast searches, mapping, file 
trace. Disassembler, speed check and 
much more! Low priced, fast, easy, 
and powerful! $29.95 16K Disk. 

Send s.a.s.e. for update info. 

♦TERMS: U.S. funds; check or M.O. 
add $2.50 shipping/handl- 
ing add 6% CA — 6.5% LA 
COUNTY add $3.00 for 
C.O.D. No charge cards ac- 
cepted add $2.50 foreign 
orders normally out within 
48 hours. 



P.O. BOX 2205/REDONDO BEACH, CA 90278 

(213) 376-4105 

* Tr.idem<irl( (if Atari, Int. 
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Action! 

32K Cassette or Disk 



GAME 



^ 




Color 

the 
Sh^es 




by Sol Guber 



Structured programming is a way of thinking. It 
divides the parts of a program into smaller and 
smaller parts, and then, when the parts are very tiny 
(and obvious), starts to write the program. This kind 
of thinking is the basis of any FORTH program, first 
the top-down, then the bottom-up. First, look at the 
big picture, then keep looking at the littler and lit- 
tler picture. Finally, from the details, build up the 
big picture again. Action! uses the same thinking to 
make up programs. 

The game. 

Color the Shapes is a game which was written us- 
ing a top-down, then bottom-up type of program- 
ming. 

First, let's go over the game briefly. It's a competi- 
tive coloring game for either one or two persons. The 
object in the one-player game is to color in all the 
shapes on the board with any of the four colors that 
are shown on the bottom of the screen. 

ANALOG COMPUTING 




mly rule is that shapes with a side in com- 
cannot have the same color. If all they have is 
"a corner in common, then they may share a color. 
If you try to fill in a spot with a color that cannot 
be used there, you'll hear a double beep, and a mes- 
sage will be shown on the screen. 

To make the game more fun, there's an option for 
the computer to fill up to five shapes at random with 
a random color. The object of the two-person game 
is to be the last person to color a shape. That person 
is the winner. 

Since there's no way for the computer to determine 
if there are any more legal moves, I've included an 
option to quit. This is done by moving the cursor to 
the Q on the bottom of the screen. 

Figure 1 shows a sample board that will need to 
be colored in. Each time the game is played, a new 
board will be generated. The letters in the various 
shapes are used later in the description of the data 
structures. 

Figure 2 shows a game in progress. The bottom 
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Figure 1. 
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Figure 3. 



Figure 2. 



of the board has been filled in with various colors. 
Figure 3 shows a completed game. 

The cursor is a star that is shown on the screen. 
Color the Shapes can be played with either a Koala- 
Pad or a joystick. A question will be asked after the 
entering of the players' names, to determine if this 
will be the joystick version. 

In the KoalaPad version, the cursor is moved by 
pointing to the spot where you wish to move. The 
cursor will go there, hi the joystick version, move 
the joystick in the direction that you wish lo go, and 
the cursor will head that way. 

The cursor's color is the same as the color that will 
be used to fill the shape. When the cursor is any- 
where in the shape that you wish to fill, just press 
the trigger. 

To change colors for the fill, move the cursor to 
any colored shape and press the trigger. This will 
give a beep, and the cursor will move to the bottom 
of the screen. By moving the cursor left or right, you 
move to the position of one of the other colors, or 
the Q. Press the trigger when the cursor is by the col- 
or you want. You can change colors as many times 
as you want. 

Your turn will be over when you successfully fill 
in a shape. There's no way to lose a turn. 



The structure. 

Now that we know the basic outline of the game, 
what does this have to do with structured program- 
ming? That's easy to see by looking at the last PROC 
that was written. 

It's just a long loop that does very logical things. 
It's made up of TITLE, PMGRAPHICS, SETUP PM- 
CLEAR, MAKEPM, GRID, SEARCH, CHECK_ 
BOARD, INIT, NAIME and, finally the major DO OD 
loop. This loop just consists of two lines and a limit. 

The first part of the PROC sets everything up and 
checks to see what's been done. The heart of the pro- 
gram can be explained very simply by the two func- 
tions TRIGGER and JOYSTICK. 

TRIGGER checks to see if the trigger has been 
pressed. JOYSTICK checks to see if a move's been 
made. IF TRIGGER = then COLOR_IN(SPOT). IF 
JOYSTICK = 1 then MOVE(). Do this until either the 
board is completed or QUIT= 1. How could any pro- 
gram be simpler? 

This is the whole point of structuring programs: 
break everything down into easy-to-digest miits that 
are logically simple. While the game's going on. the 
only two things to look at are the triggers and either 
the joystick or the KoalaPad. 

How long should the program monitor these two 
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things? Until the game is complete, or someone quits. 
Then what? Ask if another game is desired. If it is, 
play again; otherwise, finish. There's no need to mon- 
itor the keyboard, get data from the disk, or do any- 
thing else. 

Structui'ed programming uses the concepts of posi- 
tive actions. Do an action until something happens 
or a flag is set or while a condition still occurs. It 
can be used in all parts of the program to make the 
programming easier and very logical. Let me go into 
some more details on how this type of thinking; the 
idea to do while or until is a very nice concept. 

This simplicity is used in other parts of the pro- 
gram. Let us go through several of the other proce- 
dures and functions. If the trigger has been pressed, 
TRIGGERQ = and we will C = COLOR_IN(SPOT). 
There are several options in that procedure. If the 
spot has a color there, B(SPOT) < > 0, then what we 
want to do is change colors or quit. A loop is set up 
so that we continue to PICK_COLOR until a flag 
is returned to say that it is non-zero. A good pick 
has been clone. If quit is one, then return. Otherwise 
move the cursor back to where it was and continue 
the turn. If the spot had not been colored in already, 

then we must check to see if it is a GOOD COLOR. 

If the flag is returned as then BEEP, print a mes- 
sage on the screen, BEEP again, and then RETURN. 

Finally, if it is a good move, then FILL IN(SPOT) , 

check to see if there are two players, and write the 
new name on the screen. 

JOYSTICK is another example of a simple proce- 
cku'e that does only one thing; it checks to see if there 
has been any movement in the joystick or the Koala- 
Pad. CFLAG is used to signal that the KoalaPad is 
to be used. If it's on, check the two locations in mem- 
ory that store the value of the point on the pad that's 
being touched. If either point is less than five, then 
the pad is not being touched. RETURN a zero to show 
no movement. Next, calculate the X and Y position 
of the point that's being touched. If the movement 
is only slight, then RETURN a zero to again show 
no good movement. Otherwise, set the new X and 
Y positions to this point, and return a 1 to show 
success. 

The other paii of JOYSTICK() is used if play is with 
a joystick. First determine the value of the joystick. 
If it is 15, RETURN a zero to show no move. If the 
value is 11 and you can move left, then move left and 
return a 1 for success. If it is 7 and you can move 
right, then make the new position and return a suc- 
cess. Do this for up and down. If no move was pos- 
sible, return a zero for unsuccessful move. 



Both of these two procedures show how the logic 
was broken up into simple steps, each one of which 
was very obvious. There were other parts of the pro- 
gram that took judgement and thinking. They're not 
really a part of structured programming, but are nec- 
essary, anyway. 

There's a lot of data stored about the screen. See 
Figure 1 for an example of an initial boai'd. It's a nine- 
by-nine grid and can have many shapes in it. 



Color the Shapes. 

There are four data structures that were used to 
store information about the shapes. The first was an 
array called R. It is a siiuple one-to-one correspon- 
dence to the grid on the screen. The first value cor- 
responds to the top square; the one below is R(ll]; 
and so forth. 

To make some of the calculating easier, the array 
for R was made up to be ten squares by nine rows. 
R is filled with numbers corresponding to the shapes 
that are seen. Thus, the first shape [Figure 1) will 
put R(l) = 1, R(2) = 1, R(12) = 1, R(13) = 1, R(23) = 1, etc. 

The array B is a simple correspondence to array 
A. It just contains the color values of each square in 
the grid. The next ai'ray is GAR. Shape A corresponds 
to GAR(l), shape B corresponds to GAR(2), etc. The 
values in GAR tell how big the shapes are. The val- 
ue is a two-digit number. The units digit is the row 
for the top of the shape, and the tens digit is the row 
for the bottom of the shape. 

Thus, shape G is GAR(7] and has a value of 11. 
Shape M is GAR(13] and has a value of 43, and shape 
A gives GAR(l) = 30. The final array is called USED. 
It corresponds to GAR and tells if each shape has 
been colored in. Every time a shape is filled with 
color, the corresponding shape in USED is given a 
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continued 



1. Thus the function COMPLETE, to determine if the 
game is over, just looks at each value in USED, and 
if there's a 1 in each spot, then all the shapes have 
been colored in. 

Now that we have some information on how the 
data is stored, we can look at some of the other func- 
tions and see how simple they are to program. 

Let's look at FILL IN. First, we determine the 

number of the shape where we are from array R. Find 
the top and bottom rows of that shape from array 
GAR, and set the USED shape to 1. Then set up a 
little loop from the bottom row of the shape to the 
top row of the shape. If the value in R is that shape, 
then set B to that color, and FILLER that square. 

FILLER'S another little subroutine. Check to see if 
the right side is a line and the bottom is a line. You 
should change values if they are. Then, just do a sim- 
ple PLOT, DRAWTO routine to fill in with the color 
selected. 

A very similar logic is used in the fmiction GOOD 

COLOR. First, determine the shape you're on from 

array R. Then, find the top and the bottom of the 
shape from array GAR. 

Start at the bottom row and check each square. If 
it's part of the same shape as the one that we're look- 
ing at, check all four squares around it to see if the 
color is present there. If it is, return a to show fail- 
ure. If everything's been checked, and no two colors 
will be touching, report a success (RETURN('t)). 

Among the things that I haven't done is explain 
how some of the data is generated, or how the ran- 
dom shapes are made, but the logic in this part is 
also very straightforward and can be explored, if 
needed. 

This game is a good example of two things. The 
first is that Action! makes structured programming 
very easy. The second is that, with good simple log- 
ic on the overall design of a program, it can be split 
into smaller and smaller parts. Each part can be fur- 
ther divided into parts that are easily programmed. 

I hope you enjoy Color the Shapes. My daughter 
and I had fun inventing it. It's a good game of logic 
from which you can learn about programming. D 

Sol Guber has been program ining for his Atari 800 
jor five years now. The idaa for this game came from 
his seven-year-old daughter Rebecca, to whom com- 
puters are a natural part of Ufe. 



Listing 1. 
Action! listing. 

COLOR THE SHAPES 

by Rebecca Guber and Sol Guber 

MODULE 

BYTE ftRRfiV 

R(180} ,USED(60) ,PLAYER{28J ,BCS03 , 

CLS=704,flCiej ,GflRf60) , 

IMTER=£72 169 Q 141 18 212 141 27 

288 184 641 , 
TK=r8 252 4],TY=I248 8 8 83 , 
TEST=[246 255 18 13 , 
C0L0RS=t8 122 88 28 132 248 198 

14 1901 , 
STftR=[0 8 8 24 126 60 60 126 24 
8 03 

CARD SC1,YP1,YP,Y1 

BYTE CFLAG , COL , PLAVNUM, COUNT , DX , DY , 
OLDX,OLDY,K,Y,TURH,QUIT 

PROC SETUPt) 
CARD Z 

Z=PEEKCC5683 
POKE CZ+166, 143) 
PeKECt512, INTER) 
POKE t54286, 192) 
POKE {87, 18) 
POKE C623, 168) 
FOR Z=8 TO 8 DO 

CLS(Z)--PEEK(COLORS + Z) 
OD 
RETURN 

PROC BLOCKtBYTE I) 

BYTE J 

FOR J=152 TO 157 DO 

PLOT {I,J) 

DRAWT0tI+5,J) 
OD 
RETURN 

PROC HEWDIRtBYTE A,B) 

DK=8 

DY=8 

IF L0CATEtA+l,B)>8 THEN 

DH^l 
ELSEIF LOCATECA-1,B)>0 THEN 

DK=-1 
ELSEIF L0CATECA,B-1)>0 THEN 

DY=-1 
ELSE 

DV=1 
FI 
RETURN 

BYTE FUNC LINE (BYTE A,B) 
BYTE Z,J 
Z=L0CATEtA+l,B) 
J=LOCATEtA-l,B) 
Z = = + J 

J=L0CATE{A,B+1) 
Z= = *J 

j3L0CATEtA,B-l) 
Z = = +J 

IF Z>6 THEN 
RETURN CZ) 
FI 

NEWDIRCAfB) 
RETURN (1) 

PROC REMOUECBYTE A,B) 
DO 
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PLOTCfl,BJ 

A==+DH 

B==+DV 

UNTIL LINE{fl,B) <>1 
OD 
RETURN 

PROC GRIDCJ 

BYTE I,X,Y,Z,X0LD,Y0LD,Y1 
COLOR-6 
1=2 

WHILE K157 DO 
PLOT f 3,1} 
DRAHT0t74,I3 
I==+16 
0I> 
1=3 

WHILE I<79 DO 
PL0TCI,2) 
DRAHT0tI,1453 
I== + 8 
OD 

FOR 1=2 TO 5 DO 
COLOR=I 

BLOCK t(I-2J»ie+5) 
OD 

C0L0R=6 
PL0Tf45,1533 
DROWTO{50,153J 
DRflWT0t58,157} 
DRflWT0t45,1575 
DRAWT0{45,153> 
PL0T{51,1585 
C0L0R=0 

FOR 1=1 TO 40 DO 
DO 

K=RANDf8)*8+7 

Y=RAND {163*8+10 

Yl=Y-i8 

IF Yl/8=tYl/16)»2 THEN 

K= =+4 
FI 

UNTIL LOCATE f3{,Y)<>8 
OD 

HOLD=M 
YOLD=Y 

IF Y1/8={Y1/16)»2 THEN 
DX=8 
DY=-1 

HEMOUECH,Y) 
DH=8 
DY = 1 

REMOVE CXOLD,VOLDJ 
EL5E 
DY=8 
DX=-1 

REM0UECK,Y3 
DY = 8 
DH = 1 

REMOUEtKOLD,YOLD) 
FI 
OD 
RETURN 

PROC TITLE {} 
BYTE H,Y.C,K1,K2 
CARD 5C,J 
SC1=PEEICC{88) 
GRAPHICS (19J 
5C=PEEKCt568J 
FOR J=7 TO 3 DO 

P0KE(SC+J,7} 
OD 

P0KEC87,2} 
C0L0R=8 
PLOTtO,13 
PRIHTDE to, "COLOR THE 5HAPE5"} 



PRIHTDE(6," by rebecca qu ber"> 
PRiNTDEte," GSH^BaMlinilB"} 

P0KEt87,3J 

FOR J=l TO 1088 DO 

FOR K2=l TO 508 DO 

OD 

K=RAND(35J 

Y=RAND(123+8 

C=RANDC255> 

S0UND{0,C,8,8} 

C0L0R=RAHDf43 

PL0T(H,Y3 
OD 

50UND(8,8,8,8} 
RETURN 

BYTE FUNC MEW5P0T CBYTE J,COUNTJ 

BYTE K,Y1,X1,Z,K1 

RCJ)==+128 

Yl= t C J-13 /10J»16+18 

X1={(J-1J MOD 18J«8+7 

FOR K=0 TO 3 DO 

Z = !L0CA1E CHl+lK CK3 = Vl + TV fiKS ? 

Kl=J+TESTtKJ 

IF Z=8 AND RCK1J=8 THEN 
RtKl)=COUHT 
RETURN (Kl) 

FI 
OD 
RETURN (8) 

BYTE FUNC OLDSPOT CBYTE J, COUNT} 
BYTE K,K1 
RCJ}==-128 
K=3 

WHILE K0255 DO 
K1=J+TE5T{K} 
IF K1>0 AND KK108 THEN 
IF RJK13>128 THEN 
R(K1}==-128 
RETURN CK13 
FI 
FI 

K==-l 
OD 
RETURN (83 

PROC FINDCBVTE J, COUNT) 

BYTE K,K1 

RfJ3=C0UNT 

DO 

K=NEWSPOTCJ, COUNT) 
IF K=8 THEN 

Kl=0LDSP0TtJ,C0U«T3 
J=K1 
ELSE 

J=K 
FI 

UNTIL J=0 
OD 
RETURN 

PROC SEARCH C) 

BYTE J,C0UNT,K,K1 

ZERO CR, 1003 

C0UNT=1 

FOR J=l TO 33 DO 

IF RtJ}=8 AND J MOD 18<>0 THEN 
FINDCJ,C0UNT3 
C0UNT==+1 

FI 
OD 
FOR J=l TO 89 DO 

IF R{J3>128 THEN 
|R{J}= = -128 

FI 
OD 
RETURN 
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^ Color the Shapes 



continued 



; PMG.ftCT FROM THE ACTION! TOOLKIT 
INCLUDE "DllPMG.fiCT" 



BYTE FUNC 5IZE(BYTE K3 

BYTE J 

FOR J=K+1 TO K+9 DO 

IF RUJ=COUNT THEN 
RETURN (iJ 

FI 
OD 
RETURN (OJ 



PROC CHECK_B0ftRDf3 

BYTE J,K 

C01JHT = 1 

FOR J=l TO S3 DO 

IF J MOD 10 <>0 THEN 

WHILE RCJJ<COUHT AND J<100 DO 

J= = + l 
OD 

6fiRCC0UNT}=J/lfl 
K=CJ/ie3»ie+10 
WHILE 5IZEtK)=l DO 

K==+iO 
OD 

GAR tCOUNTi -=+ CK-IOJ 
COUNT:: r. + l 
FI 
OD 

COIJMT :-:-l 
RETURM 

PROC SHIFT (BYTE K15 

BYTE Z,Zi 

IF Kl=140 THEN 

OUITrl 

RETURN 
FI 

Z-iXl -6e)/20 + l 
COL-Z+1 

Z1 = PEEKC705*Z} -6 
P0KEC785,Zi) 
RETURN 

PROC BEEPO 

CARD Q 

5OUNDCO,22e,i0,ia3 

FOR Q-l TO 25000 DO 

OD 

30UHD40. 0,8,0} 

RETURN 

BYTE FUNC PICK-COLOR O 

BYTE 5,TR,J,K1 

CARD li 

FOR I1=0LDY TO 173 DO 

PMMOUECi.HrllJ 
OD 

0LDV=173 

PRINTE ("PLEASE PICK A COLOR"! 
K1 = S8 

PMHP0SC1}=68 
IF CFLAG-1 THEM 
DO 

J=PEEK(624J 
IF J>5 THEN 

J=(J/50J*28+60 
PMHP0S(13=J 
FI 

IF PEEK (636) =e OR 
PEEK (6373=0 THEN 
BEEP (3 
SHIFT (J3 
RETURHd} 
FI 



OD 
FI 
DO 
DO 

S=STICK(05 
TH=STRIG(8) 
IF TR=0 THEN 
BEEPO 
SHIFT (K13 
RETURN (13 
FI 

UNTIL SOiS 
OD 

IF S=7 THEN 
Xl==+28 
IF Xi=168 THEM 

Xl = 60 
FI 
FI 

IF 5=11 THEN 
Xl==-20 
IF Xl=40 THEM 

Hl=140 
FI 
FI 

PMHPOS (13 =H1 
FOR 11=1 TO 6008 DO 
OD 
OD 
RETURN (13 

BYTE FUNC GOOD-COLOR (BYTE SP0T,C0L3 

BYTE TOP, BOT, BLOCK, I 

BL0CK=R(SP0T3 

TOP=GAR(8LOCK3 

BOT=(TOP MOD 103*10 

TOP=(TOP/103«1O 

WHILE BOT<TOP+g DO 

IF R(B0T3=BL0CK THEN 
FOR 1=8 TO 3 DO 

IF B(BOT+TEST(I53=COL THEM 

RETURN (03 
FI 
OD 
FI 

B0T==+1 
OD 
RETURN (13 

PROC FILLER (BYTE J3 
BYTE K,Y,K,L,L1 
Ll = 6 
IF R(JJ=8(JHH} THEN 

Ll==+1 
FI 

L = 14 
IF RCJ}=R(J+103 THEN 

L = = + l 
FI 

K=(J/i01«16+3 
y=(J HOD ig3K8-4 

ran k-h to k+l do 

PL0T(Y,K3 

DRAWT0(Y+L1,K3 
OD 
RETURN 

PROC FILL-IN (BYTE SPOT! 

BYTE H, TOP, BOT. J 

N=R(SP0T3 

T0P=GfiR(N3 

BOT=TOP MOD 10 

TOP=(TOP/183»10 

USED(H3=1 



(Action! Ji'sting continues on page 88) 
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by Phill Roey 



For thousands of years, the evil Lyrean race has 
ruled the galaxy. As soon as another race reaches 
technological levels advanced enough to achieve star 
travel, the Lyreans' ultimate weapon — the Mesotron 
Cannon — is trained on them. 

Now, mankind's turn has come. The cannon is in- 
side I^lulo's orbit and approaching rapidly, gathering 



asteroids to use as fuel as it comes. Things couldn't 
look more desperate. 

Yet all is not lost. While on a routine maintenance 
stop on asteroid A37THETA, your ship is swallowed 
by the camion. Your duty is clear. You must blast the 
asteroids which the cannon uses as fuel, and fire 
through force fields that grow ever closer. You must 
render this huge weapon inoperative, 

((.•(;n(inLie(i on n(,>,\( page) 
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Cosmic Defender continued 



Typing it in. 

Before typing anything, look at the Hstings accom- 
panying this article. 

Listing 1 is the BASIC data and data checking 
routine. This listing is used to create both cas- 
sette and disk versions of Defender. The data 
statements are listed in hexadecimal (base 16], 
so the program will fit in 16K cassette systems. 




Cosmic Defender. 

Listing 2 is the assembly language source code 
for the game of Defender, created with the OSS 
MAC/65 assembler. You don't have to type this 
listing to play the game! It is included for those 
readers interested in assembly language. 

Follow the instructions below to make either a cas- 
sette or disk version of Defender. 

Cassette instructions. 

1. Type Listing 1 into your computer using the 
BASIC cartridge and verify your typing with 
Unicheck [see page 24). 

2. Type RUN and press RETURN. The pro- 
gram will begin and ask: 

MAKE CASSETTE C8) OR DISK CD? 

Type and press RETURN. The program will 
begin checking the DATA statements, printing 
the line number of each as it goes. It will alert 
you if it finds any problems. Fix any incorrect 
lines and re-RUN the program, if necessary, mitil 
all errors are eliminated. 

3. When all of your DATA lines are correct, 
the computer will beep twice and prompt you 
to READY CASSETTE AND PRESS RETURN. 
Now. insert a blank cassette in your recorder. 



press the RECORD and PLAY buttons simultane- 
ously and hit RETURN. The message WRITING 
FILE will appear, and the program will create 
a machine language boot tape version of Defend- 
er, printing each DATA line number as it goes. 
When the READY prompt appears, the game is 
recorded and ready to play. CSAVE the BASIC 
progi'am onto a separate tape before continuing. 
4. To play, rewind the tape created by the BA- 
SIC program to the beginning. Turn your com- 
puter OFF and remove all cartridges. Press the 
PLAY button on your recorder and turn ON your 
coiTiputer while holding down the START key. 
If you have a 600 or 800XL computer, you must 
hold the START and OPTION keys when you 
turn on the power. The computer will "beep" 
once. Hit the RETURN key and Defender will 
load and run automatically. 

Disk instructions. 

1. Type Listing 1 into your computer, using the 
BASIC cartridge and verify your typing with 
Unicheck (see page 24). 

2. Type RUN and press RETURN. The pro- 
gram will ask: 

MAKE CASSETTE (0) OR DISK (D? 

Type 1 and press RETURN. The program will 
begin checking the DATA lines, printing the line 
number of each statement as it goes. It will alerl 
you if it finds any problems. Fix incorrect lines 
and re-RUN the program, if necessary, until all 
errors are eliminated. 

3. When all the DATA lines are correct, you 
will be prompted to INSERT DISK WITH DOS, 
PRESS RETURN. Put a disk containing DOS 
2. OS into drive #1 and press RETURN. The mes- 
sage WRITING FILE will appear, and the pro- 
gram will create an AUTORUN.SYS file on the 
disk, displaying each DATA line number as it 
goes. When the READY prompt appears, the 
game is ready to play. Be sure the BASIC pro- 
gram is SAVEd before continuing. 

4. To play the game, insert the disk contain- 
ing the AUTORUN.SYS file into drive #1. Turn 
your computer OFF, remove all cartridges and 
turn the computer back ON. Defender will load 
and run automatically. 

Playing the game. 

Defender is a one-player game that requires a joy- 
stick in port 1. Choose the level (1 to 9) you wish 
to begin on. by pressing the SELECT key. 

You start the play by either pressing the START 
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key or the trigger on the joystick. Hitting the SPACE 
BAR will pause the game; hitting it a second time 
will resume the game. Defender can be aborted at 
any time by pressing the OPTION key. 

Defend your species with all the cuiming at your 
command. Be careful; I think the Lyreans know 
you're coming. D 

PhiJJ Roey lives in Atlanta and works for UPS. He 
became a computer enthusiast after seeing a game 
of Lunar Lander played on an old Selectric termi- 
nal. He's had his Atari 800 since 1982, and this is 
his first assembly language game. 

Listing 1. 
BASIC listing. 

le REH *** COSMIC DEFENDER *** 

2a TRAP 20:? "MftKE Cft55ETTE COJ , OR DI 

5K <1)";:IMPUT D5K:IF DSK>1 THEN 20 

30 TRAP 40000:DATA 0,1,2,3,4,5,6,7,8,9 

,0,0,8,0,0,0,0,10,11,12,13,14,15 

40 &IM DATS <91), HEK C22} : FOR H=0 TO 22: 

READ M:HEKtX>=M:HEXT K:LIHE=990 :RE5T0R 

E 1000: TRAP 120:? "CHECKIMG DATA" 

50 LIHE3LIME+10:? "LINE :";LIHE : READ DA 

T$:IF LENtDATSlO^O THEN 220 

60 DATL1H=PEEK{183}+PEEK<184)»256:IF D 

ATLINOLIME THEN ? "LINE ";LIHEj" MI55 

IMG!":EMD ^ . 

70 FOR X=l TO 93 STEP 2 : D1::ASC f DATS tX, 

X) ) -48 : D2=ASC (DATS (X+1 , X+1) 5 -48 : BYTE=H 

EX<D1J*16 + HEX<:D2) 

80 IF PASS=2 THEH PUT «1, BYTE: NEXT X:R 

EAD CHKSUM:G0T0 58 

90 TOTAL=TOTAL+BYTE:IF T0TAL>999 THEN 

T0TAL=T0TAL-1008 

100 NEXT X:READ CHK5UM:IF TOTAL-CHKSUM 

THEN 50 
110 GOTO 220 

120 IF PEEK(195J<>6 THEN 220 
130 IF PASS^O THEM 170 
140 IF NOT DSK THEM 160 
150 PUT ttl,224:PUT ttl,2:PUT «1, 225: PUT 

ttl,2:PUT t*l,0:PUT ttl, 32: CLOSE ttl:END 
160 FOR X=l TO 3:PUT B1,0:NEXT X:CLOSE 

ttl: END 
170 IF NOT DSK THEM 200 
180 ? "INSERT DISK WITH DOS, PRESS RET 
URN";:DIM INS{1J:IMPUT IM5:0PEN ttl, 8,0 
,"D:AUTORUN,SYS" 
190 PUT ttl, 255: PUT ttl, 255: PUT ttl, 0: PUT 

ttl, 32: PUT ttl, 212: PUT ttl, 44: GOTO 210 
200 ? "READY CASSETTE AND PRESS RETURN 
";:OPEN ttl,8,128,"C:":REST0RE 230:F0R 
X=l TO 40:READ N:PUT ttl,N:NEXT X 
218 ? :? "WRITING FILE":PASS=2:LINE=99 
0: RESTORE 1800: TRAP 120: GOTO 50 
220 ? "BAD DATA: LIME ";LINE:END 
230 DATA 0,26,216,31,255,31,169,0,141, 
47,2,169,60,141,2,211,169,0,141,231,2, 
133,14,169,56,141,232,2 

240 DATA 133,15,169,0,133,10,169,32,13 
3,11,24,96 

1888 DATA D8A885A222A987205CE4A93E8D2F 
02A9838DlDD8A9228D6Fe2A9858D8CD0A9648D 
C402A9268DC502A9388DC602,917 
1018 DATA A9D48DC702A9O88DC882A9AA8DCO 
O2A9368DC182A9OO8DO7D4AOOOB988E0998OO8 
99000C990010B988E1990009 , 558 



1828 DATA 99OOOD99OO1188D0E5Ae77B9622B 

998888B9DA2B99888CB9522C9988108810EBA9 

O88DF4O22075212OA32O2O5C, 824 

1030 DATA 21208B21203F2920D12520B62020 

F7272O3A21AD1FDOC9O3DOF6F0DC2O65E4A980 

8598AO078DO8D299OOD2881O,54O 

1040 DATA FA60AD182B38E911A8A90085D6B9 

31218591AAAD0AD2C9FA80F9A8AD0AD2293EC9 

28B0F7690120FC20D0E8A691,601 

1050 DATA AD8AD2C93090F9C9FFFOF5A8AD8A 

D2293EC928BOF72OFC2ODOE66018693O85D7B1 

D6C811D6E6D7E6D711D68811 , 376 

1068 DATA D6D01FC6D7C6D7A98191D6A982C8 

91D6E6D7E6D7A9e491D6A9838891D6A93e85D7 

CA68283C46647D46645064AD,784 

1878 DATA 0ODOF8e28581ADe8DO29FCFOO285 

82AD84DOD007ADeCDe29FDF80S85888DlED860 

A95A85D7A2e08eD6A0888A91 , 511 

1880 DATA D6C8D8FAC6D7A92FC5D7D8F260A9 

OOA899O8O399OOO499OOO599O0O699OOO7C8DO 

EE80A9ee858585808581S582 , 68 

1098 DATA 85978598858A858B85958593A930 

8596A9138D052B8583A9548DAF2A8D1ED0A932 

8599A964859A858460A594D8,888 

1188 DATA 278587858B8D81D8A9ei859420A3 

282e9923A9648584A9148D08D2A9C88D86D2A9 

878D85D28De7D2AD8AD22906 , 901 

1110 DATA 8D12DO8D13D0AD0AD28DOOD2ADOA 

D28D02D2AD0AD229DF8D01D28D03D2C684D032 

20A320A93285998D1ED0A964,457 

1120 DATA 859AA98085948588CE852BAD852B 

C918F817A9808595A93085968D1ED020D92320 

752120F7274C62E420752120 , 140 

1130 DATA A320A9e88580A9ei8DlEDe8583A9 

198DAD2A8DB32AA92B8DAE2A8DB42AA94E8DB0 

2AA92B8DB12AA9468DAF2AA9 , 366 

1140 DATA FF8D2Ee28D2062AD2E82DeFB4C7F 

20A9e085D8A583De44854DA582Fee62e782820 

DD28AS8eF8834CBF21ADFCe2, 489 

1159 DATA C921D08BA9FF8DFC02A58549FF85 
85A585D01B20912520BC2620E222200E232852 
2328EA242e482820AD2320D9 , 115 

1160 DATA 23A59EF00AA9BD8D8882A9298D01 
024C62E4AD08D3A69A4AB886Ee28F882C69A4A 
B806E0BEF882E69AA6994AB8 , 655 

1178 DATA 86E032F082C6994AB886E064F002 

E6996eA6998E88D8E8E88E85DeA49AA208BD49 

23998OO4B9880329F3998e83,887 

1188 DATA C8CA10EEA49AB90303e98C990303 

B904838904998483B985e3898C9905036000C0 

7OOO730O7OC88OA59BDO21ftD,525 

1190 DATA 10D0D851A901859BA49AA98399e4 

838489 A9258DfllD2A9328586A59969868588E6 

88E688A5888Dfl4D8E686E686,271 

1288 DATA A5868D88D2A9CDC588980AA581F0 

192O3824205C24A9OO8DO1D2859B8581A489B9 

O4O329FC99848360AD2A8285 , 968 

1218 DATA 93D81FAD182B38E911A8B984248D 

1CO28D2AO2A4978818O8E695DO02E696A8O384 

97A6978E84D460A832A596C4 , 23 

1228 DATA 96De09C693DeiE284925A93848A2 

14A086A59599922AC86899922A1869e248C8C8 

CAiOEI>68S8e38392O2828202,326 

1238 DATA 8181FEF92flBDF92AC91AF08588F8 

OBDOF1A91O9DF92A858FDOF2A58FFO0C8AFOO9 

CAAOO1A90O858FFOD84CB025 , 520 

1240 DATA A58938E91D4A4A29FE186D992fl85 

8EA5970A18658838E9274A4A186595858D9OO2 

E68E6Ofi58D85D6A58E85D78D,860 

1250 DATA 1ED0A000B1D6D90AC8B1D6D805C8 

B1D6F0E4C981F03CC982D805C6D64CB724C903 

FOO6C984D809C6D6C6D7C6D7,465 

1268 DATA 4CB724C98AD80BA90D91D6E6D7E6 

D74CD024C909D0B3A98D91D6C6D7C6D7C6D7C6 

D74CD824A9e891D6E6D7E6D7,469 

1278 DATA 91D6C891D6C6D7C6D791D6A203A8 

O5DOeEA9OO91D6E6D7E6D791D6A202AOO28581 

200D24A91985904C7828A590 , 586 
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1280 DftTfi Fe2DflD2C02D028C690A5g88D2C02 

F61FA8B91C258DO2D2AD0AD2O9CO8DO4D2B935 

25O9408l>O3D28D05D2fl5e28D,537 

1290 DftTfl 1EO260F5F4F3F2F2FOF2F5E9E8EF 

F0F1F2F3F4F5F4F1F5F2F3F4F5F5O88OO182O3 

048505868687070888890989,797 

1388 DftTft 8A8A0aEE182BA!>182BC91ADe85A9 

148D182BA9488D0EI>40878205C21fl908859585 

9B2OA320A930859620D9238D,985 

1318 DATA lED028D12528B62eA900A2eA95B5 

CA18FB20F727EE052B28A9C08D0ED460A&2E82 

D819A9B48D28028D2E82ADF4,763 

1328 DATA 82C918F0e5186984D0e2A9088DF4 

0260A888B9F92A»9OB2BF0e49814BO05C8C804 

D0EFA08eB9F92A998B2BC8Ca , 884 

1338 DATA 84D8F560AD182B38E911AABD6326 

8591Aee0A9388592BD6C2685D6A59285D7A287 

A98591D6E6D7E6D7A9O691D6,808 

1340 DATA E6D7E6D7fi90791D6E6D7E6D7CADe 

E5ADefiD2291FC914B0F7C90598F3C6D68AieS5 

9285I)7A99891D6C6D7C6D7A9,28 

1358 DATA 0991D6C6D7C6D7A98C91D6C8A908 

91D6C6D7C6D791D688A98B91D6C6D7C6D7A98A 

91D6C6D7C6D7A90891D6A5D6,711 

1368 DATA 659185&69e8EE692A592C931F886 

60FF963C1E1E3C3C5A46FFC8644B323232C864 

488A48A6D8E6D885Aft8D03D0,695 

1370 DATfl S»02!>0B5Ce8D14D0B5CB8D15D0Ee 

OAD80AA9AO8D00O2A9268D01O268AA684e48A9 

F88D16D0A9988D17D0A9268D , 160 

1380 DATA 19DOA9758&8802A9268D01026840 

A2OO86D8B59FF013B5AA38F59FD0O4959FA9FE 

95AAE8E88AD0EA6OA5930DOA,864 

1390 DATA D2D0F3A90iACOAD2C8OFB002A902 

959FAD182BC9169OO2F69F4CD1260800e08808 

8878FC788OOe0800886e0008,780 

1400 DATA 0OOO0O1C3E7F6B7F5D221C88OO80 

0OOO00OO8OOO0O7FF87F800OOO000e000O0e88 

0e0O183C7E3C5A667E3C180e,568 

1418 DATA 00Oe88800880070FOElC0OiCOE0F 

O7OO00OOO8O0O00O00882C242F3D898F8888ee 

880888000888001038703810,168 

1420 DATA 0008000000088080000888888207 

02OO88888OeO088880eOS78E3CO0FCOO3COEO7 

000000000000000008888814, 613 

1430 DATA 0022100888880000888888808387 

3F3F3F07O30O00O008O888e0OO18244281C3E7 

FF7E3C18O00OOO000O88O88F,45 

1448 DATA e88e88FC880O888F880O0O0OOO8O 

OOF89e98D88B89898F8O0OO0O8OOOO000O0OlO 

284492442810000000088888,486 

1450 DATA 0000000880800200000800000800 

AD182BC911F049A98A8591A00FA5918A8A8A0A 

186922AAB977279D8e06B9F7,512 

1460 DATA 269D0087Cft88D0FOC691D0EOA2OA 

A9FE95AAA988959FCfll0F5A289A98418695895 

C0CA18F8A289A98818693e95,291 

1478 DATA CBCAieF868A58BF82BC68CD027C6 

8BA58B0A0A0A09O7AAA9e88592A48ABD952899 

8885CAC3C692D0F4A906858C,25 

1480 DATA A58BDO038D01D06OA2O7A9O88592 

A48A2O6028A589858AA5888D01DOA9O9858BA9 

01858C60O00O000080OO888e,294 

1490 DATA 8100000000800081814200000008 

4281894224800124 429 i084ft24C00324521D08 

O82CEO07341Oie0O088878iE,558 

1500 DATA 101OOO0OOO88331C1O00O0OOOO0O 

181800O0OOA58938E91C4A4A4A4AAAA9OO959F 

A9FE95AAF6B5B5B585918692,397 

1510 DATA A8A2022OOD24A692A491C0e890O6 

A9OO95B58591A91785908AOA0A0AOA186931A8 

A591OAOA8A0A859109OFAABD,562 

1520 DATA 772799OO06BDF72699OO0788CAE4 

91DOEE8E1ED0A9OO85824C9923A9O58D3002A9 

2A8D31022O7521A9CO8DeED4,424 

1530 DATA E69EflDBC298D182BADiFDOC905DO 

17EE182BAD182BC91AD0O2A9118D182BA91E8D 

28828D2E82AD182B8D7C2A20,789 



1540 DATA 9125AD18DOFOO7AD1FDOC906D029 

A992SD30O2A92A8D31O2A9758D0OO2A9268DO1 

O2A910A8O599F82A88D0FA84 , 691 

1558 DATA 83849EAD182B8DBC2960AD2E02D0 

BDF09D11488A48A20FA59D859CA59C8D0AD48D 

16D0186902859CCA1OFOA20F , 30 

1560 DATA A59C8DOAD48D16D038E902859CCA 

10FOAD2C82DOOAA9818D2CO28D1EO2E69DA9A0 

8DOO02A9268DO18268AA684O , 742 

1570 DATA 707O46DE2A70F0473O2A473E2A7O 

7O464C2A465B2AFO477E2A7OC66C2A707e7O70 

707O46DE2AO6O641O52AO00O , 672 

1580 DATA OO0OOO00OO232F332D2923OOOOOO 

0O000O00242526252E2425328O8O8O8O8O8O8O 

8O8OA2B9808O8O8O808O8O8O, 766 

1590 DATA 80F0E8E9ECEC80F2EFE5F9808000 

0eOO73656C656374OO6C6576656CiAOO008O8O 

E1EEE1ECEFE78OE3EFEDF0F5,582 

1600 DATA F4E9EEE7808O7O7OC6DE2A54OOO0 

D40OS054OeeOD4O00O540OO0D4000O540OeOD4 

OOO654OeOOD400OO540O00D4,246 

1610 DATA 000O5400OOD4OOO054008OD4OO00 

540OOOD40OOO54OO0OD4888O548e88C6DE2A86 

8641922A8E8E8E8E8E8E8E8E,377 

1628 DATA 8E8E8E8E8E8E8E8E8E8E8E8E88F3 

E3EFF2E59AlOlOlOlOlO086C697665731A138e 

8868691A18181O181O0O0O6C,638 

1630 DATA 65766S6C1A1 18000000800080000 

08880800008800800000000000000000808000 

000080000000000000000000,109 

1640 DATA 0000000000000000000000008000 

O08O8888O027212D250OOO2F362532OO0O8O8O 

0800010114111 A1555O04O50, 766 

1650 DATA 506454455159591A15110501OO69 

585454504888eeFFFFD7D7D7D7FFFFFFFFC3C3 

C3C3FFFFFFFFEBEBEBEBFFFF,573 

1668 DATA OFO3038F0F8303OF3FF5F5EAEAF5 

F53F3FF5F5EAEAF5F53FC33C08C33Ce8C33C88 

C33C0OC33COOC33FF0FOC0C8,19O 

1670 DATA F0F03FFF494949494949FFOO1E21 

2D292D211EOO010114111A1555O04O5O586454 

455159591A15118581886958,ie8 

1688 DATA 54545O480OeOFFFFEBEBEBEBFFFF 

FFFFfr7D7D7D7FFFFFFFFC3C3C3C3FFFF0F0303 

OFOF03O3OF3FF5F5COCOF5F5,559 

1690 DATA 3F3FF5F5C0COF5F53FO0C33C80C3 

3C0OC33CO8C33C8OC33C803FF8F8C8C8F0FO3F 

FF929292929292FF081E212D,351 

1700 DATA 292D211EO0O1O114111A1555O848 

585O6454455159591A151105O1O0695854545O 

4O0O0OFFFFC3C3C3C3FFFFFF,37 

1710 DATA FFEBEBEBEBFFFFFFFFD7D7D7D7FF 

FF0F83030F0F03030F3FF5F5D5D5F5F53F3FF5 

F5D5D5F5F53F3COOC33C80C3,268 

1720 DATA 3COOC33C0OC33C00C33C3FFOFOC0 

CaFOF03FFF242424242424FFOOlE212D292D21 

1E0OOOOOO0OOO00O08OO88OO,546 



CHECKSUM DATA. 

(see page 24] 

18 DATA 895,351,496,811,423,729,200,60 

3,555,573,694,613,29,205,214,7391 

160 DATA 128,198,962,621,491,30,155,11 

0,169,951,674,575,612,65,191,5932 

1868 DATA 968,748,858,877,852,892,582, 

200,38,494,13,788,469,791,673,9147 

1210 DATA 939,470,33,79,5,249,860,803, 

892,800,937,846,881,358,245,8397 

1360 DATA 55,32,965,398,165,882,660,11 

4,874,393,1,272,552,23,567,5953 
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1510 DfiTfl 684,738,124,913,343,883,596, 
359,57,66,219,675,489,682,405,7753 
1660 DfiTfl 345,376,708,976,623,626,341, 
3995 



COLORS .DS 11 

COLORS .D9 11 

ADR .03 2 

DLINE .D3 1 



COLORS OF 
NASTIES 



NASTY COUNTER 



I MISCELLANEOUS EQUATES 



Listing 2. 
Assembly listing. 



• COSMIC 


DEFENDER * 




» 


BY 


* 




• PHILLIP ROEY » 




1 OPERATINB SYSTEM EQUATES 


AUDCTL 




• D2B8 




SKCTL 




»02BF 




AUDFl 




*O2B0 




AUDCl 




1D2B1 




AUDFZ 




»D2B2 




AUDC2 




• D2B3 




AUDF3 




• D2B4 




AUDC3 




*D2a3 




AUDF4 




• D206 




ftUDCA 




• DZB7 




OTRACT 




»4D 




VERTI 




• B2B0 




DMACTL 




• 022F 




DLST 




•0230 




GRACTL 




*D01D 




QPRIOR 




• B2&F 




PMBASE 




•0407 




COLPMB 




704 




COLPMl 




703 




HCOLPMB 




• 0012 




HCOLPMl 




• D013 




HC0LPM2 




• DB14 




HC0LPM3 




• 0013 




COLPB 




7B8 




COLPl 




709 




C0LP2 




71B 




CQLPS 




711 




CQLBK 




712 




HCQLPB 




• OB 16 




HCDLPl 




• 0017 




HCOLPJ 




• DBl? 




C0N80L 




• D01F 




KEY 




• 02FC 




HPOSP0 




• D0B0 




STICK 




• O3B0 




TRIQ0 




• DB10 




TIMER3 




• 021C 


_, 


TIMER4 




• 021E 




TIMERS 




• 0220 




TIMERFS 




• 022A 




TIMERF4 




• 022C 




TIMERF3 




• 022E 




NMIEN 




• D4BE 




SETVBV 




• E43C 




XITVBV 




• E462 




aioiNi 




• E463 




HSCROL 




• 0404 




U3YNC 




• D40A 




CHBA3 




736 




3IZEM 




• D00C 




MBPF 




• 0000 




MBPL 




• D0B8 




PBPF 




• DBB4 




P0PL 




• DB0C 




HITCLR 




• DBIE 




CHORQ 




• E0B0 




RANDOM 




• D20A 




1 PAOE ZERO EQUATES 




1 


• ■ 


• 80 




KILLU 


.03 




COLLISION 


KILLIT 


.DS 




FLAQS 


KILLPL 


.DS 




DITTO 


OVER 


.DS 




BAMEQVER7 


FRAME 


.DS 




COUNTER 


PAUSE 


.DS 




PAUSE FLAG 


3NDF1 


.DS 




MI33LE 3ND 


9ND1 


.DS 




LOCATIONS 


OXM0 


.DS 




MI33LE X 


OYMB 


.03 




MI33LE Y 


XPY 


.DS 




EXPLOSION Y 


XPIMASE 


.DS 




EXP. IMAGE* 


EXPTIME 


.D8 




EXP. TIMER 


TEMPLO 


.03 






TEMPHI 


.DS 






SCRTEMP 


.OS 






EXPLODE 


.08 




EXP. SOUND CNTR 


TEMP 


.DS 






TEMP2 


.DS 






NONEWl 


.DS 




SCROLL FLAO 


XPLON 


.DS 




EXP. FLAB 


ABX 


.03 




SCREEN P03. LSB 


ABY 


.DS 




SCREEN POS. MSB 


FX 


.08 






FY 


.OS 






OX 


.OS 




PLAYER X 


OY 


,03 




PLAYER Y 


M3LB 


.03 




MIS8LE FLQ 


CSHIFT 


.03 




DLI COLOR 


D8HIFT 


.DS 




SHIFT USE 


TITLF 


.DS 




TITLE 3CRN FLAO 


ROCKSPD 


.03 


1 1 




ROCKP08 


.03 


11 


NASTY X LOC 


RIMAOE 


. DS 


1 1 





SCRN 


• 3000 


SCREEN MEM. 


PLAYER 


• 00 


PMQ MEMORY 


»■ 


• 200B 


ORIGIN 


1 INITIALIZATION OF 


GAME 


START CLO 






LDY 


» <MAIN 


POINT TO 


LDX 


« >MAIN 


VBI ROUTINE 


LDA 


#7 




.ISR 


SETVBV 




LDA 


• •3E 


ENABLE PMQ 


3TA 


DMACTL 




LDA 


W^03 




3TA 


QRACTL 




LDA 


• 34 




STA 


QPRIOR 




LDA 


• 3 


SET MI83LE 


STA 


SIZEM 


SIZE 


LDA 


• 100 




STA 


COLP0 


SET 


LDA 


• •26 


PLAYFIELD 


9TA 


COLPl 


AND P/M 


LDA 


• •38 


C0LQR3 


3TA 


C0LP2 




LDA 


• •D4 




3TA 


C0LP3 




LDA 


• 




STA 


COLBK 




LDA 


• 170 




STA 


COLPM0 




LDA 


• •36 




3TA 


COLPMl 




LDA 


• >PLAYER POINT TO 


STA 


PMBASE 


P/M AREA 



I MAKE 3 COPIES OF CHAR SET 
I 

LDY tt0 

COPY LDA CHORQ, Y 

STA PLAYER-f^08B0, Y 

STA PLAYER+»0C00,Y 

STA PLAYER+^1000, Y 

LDA CH0RG*236,Y 

STA PLAYER+^0900,Y 

STA PLAYER+^0D00, Y 

STA PLAYER+«1100,Y 

DEY 

BNE COPY 
? 

I INSTALL CUSTOM CHARACTERS 
I 

LDY •119 

INST LDA CHSET.Y 

STA PLAYER-i-^0Ba8, Y 

LDA CH8ET2,Y 

STA PLAYER4-^0C08, Y 

LDA CH3ET3,Y 

STA PLAYERf^lBBS, Y 

DEY 

8PL IN8T 

LDA • >PLAYER+^08e0 POINT TO 

3TA CHBAS NEW CHAR. SET 
I 

I EACH NEW SAME STARTS HERE 
I 

BEQIN JSR PLRINT CLEAR P/M 

JSR SNDINT KILL SOUND 

JSR CLR8CRN CLR SCREEN 

JSR VARINT INITIALIZE VARIABLES 

JSR TITLE DISPLAY TITLES 

JSR GRID ADD FFIELD8 

JSR ROCKS AND ROCKS 

JSR ROCKINT AND NASTIES 



MAIN GAME LOOP 

OOP JSR COLDET 
LDA CONSOL 
CMP •S 
BNE MLOOP 
BEQ BEGIN 



CHECK FOR COLLISIONS 
ABORT BAME7 
(OPTION) 
NO, LOOP 
YES, RESTART 



I INITIALIZE SOUND CHANNELS 

) 

SNDINT JSR SIOINI 

LDA oe 

STA EXPLODE 

LDY ^7 

STA AUDCTL 

SNl STA AUDFl, Y 
DEY 

BPL SNl 
RTS 



I ADD ROCKS TO SCREEN 

I 

ROCKS LDA LEVEL 
3EC 

3BC »17 
TAY 

LDA »0 

STA ADR 

LDA NUMROCK, 

STA TEMP 
TAX 

Rl LDA RANDOM 

CMP ll>2Se 

BCS Rl 
TAY 

R2 LDA RANDOM 

AND ••SE 

CMP •40 

BC3 R2 

ADC •! 



BET NUMBER 
OF ROCKS, 
AND PUT IN 
X REB 



AND TEMP 

BET A VALID 

RANDOM 

LOCATION 



CHECK IF IT 
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5 

CD 

m 



c 



> 

> 

r— 
O 
CD 

O 
O 

"D 

C 
H 
Z 
Q 



IS EMPTY 

NEXT! 

BET » OF R0CK9 FOR 

2ND PAGE OF SCRN MEM 

BET A VALID 

LOCATION 



LOOK FOR AN EMPTY SEAT. 
NEXT! 



JSR EMPTY 

BNE Rl 

LDX TEMP 

LDA RANDOM 

CMP »4B 

BCC R3 

CMP »2SS 

BEQ R3 
TAY 

LDA RANDOM 

AND »»ZE 

CMP •4U 

BC3 R4 

JSR EMPTY 

BNE R.3 
RTS 



CLC CHECK TO MAKE 

ADC • >3CRN SURE THE SPACE 

STA ADR+1 FOR ALL FOUR 

LDA (ADR),Y PARTS IS VACANT 

I NY 

ORA (ADR) , Y 

TNC ADR+l 

INC ADR-H 

ORA (ADR) ,Y 

DEY 

ORA (ADR). 

BNE RX 

DEC ADR+l 

DEC ADR*1 

LDA •! 

STA (ADR) , Y SCREEN 

LDA #2 MEMORY 

INY 

STA (ADR),Y 

INC ADRft 

INC ADR-fl 

LDA ^4 

STA (ADR),Y 

LDA #3 

DEY 

STA (ADR) , Y 

LDA • >SCRN 

STA ADR»-t 

DEX 

RTS 

.BYTE 4e,6l»,7B, laa, 123,70, 1B0, SB, IBB 



NO VACANCY! 
POKE 4 
PART ROCK 
INTO 



IN LIVING 
COLOR. . . 



DEC COUNTER 



I CHECK FOR CDLHSIONS 



LDA MBPF 

BEQ CI 

STA KILLIT 

LDA MBPL 

AND ••FC 

BED C2 

STA KILLPL 

LDA PePF 

BNE DIE 

LDA PBPL 

AND »»FD 

BEQ NODIE 

STA KILLU 

STA HITCLR 
RTS 



HAS MI3SLE HIT? 
NO.CONT. . . 
YES, SET FLO 
HIT NASTY? 

NO,CONT. , . 

YES, SET FLO 

HIT WALL OR ROCK? 

YES, SET FLAB 

DID ME RUN 

INTO NASTY? 

NO. EXIT 



I CLEAR OUT SCROLLING PORTION OF SCREEN 

I 

CLR3CRN LDA »4Z+ >8CRN 21 LINES ♦ 

3TA ADR+1 2 PAGES <■ SCRN ADOR 



LDX »(5 

3TX ADR 

LDY SB 
TXA 



LOOP UNTIL 



STA (ADRI.Y WE'VE GOT 

INY LOTS OF 

BNE CL1 NOTHIN8 

DEC ADR+l 

LDA • >SCRN-1 

CMP ADR+l 

BNE CLl 

RTS 
I 

I ZERO OUT P/M MEMORY 
I 
PLRINT LDA •» 

TAY 
PLl STA PLAYER+»B3aB,Y 

STA PLAYER-HIB4eB,Y 

STA PLAYER-f»e3»B,Y 

STA PLAYER+»B6BB,Y 

STA PLAYER-f»B7BB, Y 

INY 

BNE PLl 

RTS 
f 

1 REINITIALIZE OAME VARIABLES 
? 
VARINT LDA •« 

3TA PAUSE 



STA 


KILLU 




STA 


KILLIT 




STA 


KILLPL 




STA 


FX 




STA 


FY 




STA 


XPY 




STA 


XPIMABE 




STA 


ASX 




STA 


NONEWl 




LDA 


» >SCRN 




STA 


ABY 




LDA 


• •■? 




STA 


LIVES 




STA 


OVER 




LDA 


«*S4 


LOAD MEMORY SCAN 


STA 


ML2 




STA 


HITCLR 




LDA 


#30 




STA 


OX 




LDA 


• 100 




STA 


OY 




STA 


FRAME 




RTS 






1 PLAYER BUYS CEMENT 


OVERSHOES 


BITEIT LDA 


XPLON 


ALREADY BITING IT? 


BNE 


BTl 


YES.CONT. . . 


STA 


SNDl 


KILL SOUND 


STA 


XPIMABE 




STA 


HPOSPB-H EXPLOSION 


LDA 


• 1 


SET DEATH 


STA 


XPLON 


FLAB 


JSR 


SNDINT 


KILL REST OF SOUND 


JSR 


MISEND 


AND MI3SLE 


LDA 


»1BB 


SET TIMER 


STA 


FRAME 




LDA 


#20 




STA 


AUDCTL 


MAKE DEATH 


LDA 


• 200 


TYPE NOISES 


STA 


AUDF4 




LDA 


• 133 




STA 


AUDC3 




STA 


AUDC4 




8T1 LDA 


RANDOM 


FLASH 


AND 


• & 


SHIP 


STA 


HCOLPMB 


IN A NICE 


STA 


HCOLPMl 


GREY 


LDA 


RANDOM 


PALLOR. 


STA 


AUDFl 


MORE NOISE 


LDA 


RANDOM 




STA 


AUDF2 




LDA 


RANDOM 




AND 


• •DF 




STA 


AUDCl 




STA 


AUDC2 




DEC 


FRAME 


DONE KILLING? 


BNE 


DEDEND 


NO. 


JSR 


SNDINT 


KILL NOISE 


LDA 


• 30 


REST SHIP 


STA 


OX 


LOCATION 


STA 


HITCLR 




LDA 


• 100 




STA 


OY 




LDA 


• 




STA 


XPLON 


CLEAR FLAGS 


STA 


KILLU 




DEC 


LIVES 


ZAP A LIFE 


LDA 


LIVES 


ANY LEFT? 


CMP 


• 14 




BEQ 


BMOVER 


NO? THE BIG SLEEP! 


LDA 


• 


YES, RESET 
TO START 


STA 


ABX 


LDA 


• >3CRN 


OF SCREEN 


STA 


ABY 




STA 


HITCLR 




JSR 


SCREEN 


CLEAN UP 


JSR 


PLRINT 


SCREEN AND 


JSR 


ROCKINT 


NASTIES 


DEDEND JMP 


XITVBV 




QMOVER JSR 


PLRINT 


CLEAN UP 


JSR 


SNDINT 


SCREEN *• 


LDA 


• 


SOUND 


STA 


KILLU 


AND 


LDA 


• 1 


SET GAME 


STA 


HITCLR 


OVER 


STA 


OVER 


FLAB 


LDA 


• < BLANK PUT GAME 


STA 


MLl-i-1 


OVER 


STA 


ML3-H 


INTO THE 


LDA 


• >BLANK MIDDLE OF 


STA 


MLl-f2 


THE SCREEN 


STA 


HL3-I-2 




LDA 


• <MESSABE 


STA 


ML2+1 




LDA 


• >ME3SASE 


STA 


ML2 + 2 




LDA 


• *46 




STA 


ML2 




LDA 


• 233 




STA 


TIMERF3 


HANS 



VERT 
THIS 



STA TIMERS AROUND 

LDA TIMERF3 AWHILE 

BNE GMl THEN 

JMP BEGIN ALL OVER 

ICAL BLANK INTERRUPT 
IS WHERE ALL THE ACTION IS! 



MA2 
MAI 



ENl 

I 

I READ 



LDA 
STA 
LDA 
BNE 
STA 
LDA 
BEQ 
JSR 
JSR 
LDA 
BEQ 
JMP 
LDA 
CMP 
BNE 
LDA 
STA 
LDA 
EOR 
STA 
LDA 
BNE 
JSR 
JSR 
JSR 
JSR 
JSR 
JSR 
JSR 
JSR 
JSR 
LDA 
BEQ 
LDA 
STA 
LDA 
STA 
JMP 



• 

DLINE 
OVER 
ENDVB 
ATRACT 
KILLPL 
MA2 
XPINIT 
KILLPLR 
KILLU 
MAI 

BITEIT 
KEY 

• •21 
NOKEY 

• 233 
KEY 
PAUSE 

• 233 
PAUSE 
PAUSE 
ENDVB 
ANIMATE 
ATTACK 
RSTICK 
MOVE 
MISL 
SOUND 
XPLODE 
SCROLL 
SCREEN 
TITLF 
ENl 

• <TDLI 
VERTI 

• >TDLI 
VERT I + 1 
XITVBV 



POINT TO 

IS GAME ASLEEP? 

YES BYE. . . 

NO ATTRACT MODE 

HIT NASTY? 

NO.CONT. . 

YES, KILL 

IT 

HIT US? 

NO.CONT. . . 

YES. SUICIDE 

SPACEBAR 

PRESSED 

NO. BYE 

YES TOGGLE 

PAUSE 

FLAB 



FLAG SET? 
YES, BYE. . . 
ROTATE CHAR SETS 
MOVE NA3TY3 
READ JOYSTICK 
MOVE SHIP 
AND MIS3LE3 
BOOM 

FIREWORKS 
SCROLL SCREEN 
UPDATE DISP. LIST 
TITLES? 
NO, BYE. . . 



o 

an 



a 



S 

S 



BET STICK 
CHECK STICK FOR 
MOVEMENT IN A 
DIRECTION AND 
CHECK IF WE ARE 
AT OUR LIMITS IN 
THAT DIRECTION 



I MOVE 

I 

MOVE 



JOYSTICK 

LDA STICK 

LDX OY 

LSR A 

BCS RSI 

CPX #32 

BEQ RSI 

DEC OY 

LSR A 

BC3 RS2 

CPX •190 

BEQ R32 

INC OY 

LDX OX 

LSR A 

BCS RS3 

CPX ^30 

BEQ RS3 

DEC OX 

LSR A 

BCS RS4 

CPX •I 00 

SEQ RS4 

INC OX 
RTS 



PLAYER0 AND MISSLEl (YOUR SHIP) 



LDX 
STX 
INX 
INX 
STX 
LDY 
LDX 
LDA 
STA 
LDA 
AND 
STA 
INY 
DEX 
BPL 
LDY 
LDA 
ORA 
STA 
LDA 
ORA 
STA 
LDA 
ORA 
STA 
RTS 



OX 
HPO8P0 



HPOSPB-fS 
OY 

•a 

SHAPE, X 

PLAYER*»B400, Y 
PLAYER<-»e300, Y 
• »F3 
PLAYER+»B30O,Y 



MOB 

OY 

PLAVER*»0303, V 

• •0C 

PLAYER-i-»0303,Y 
PLAYER+»B304,Y 

• •04 

PLAYER*»0304,Y 
PLAYERf»B303,Y 

• •0C 
PLAYER-+»O303. Y 



> 

> 

O 
O 

o 
o 

c 



CD 



t SHIP 3HAPE (ARQHl ) 

I 

3HAPE 

i 

I MOVE MI 

I 

m3L 



BYTE B,»ca,»7ij,a,«73,i5, »7e, •ca.e 

SSLE AND niSSLE 30UND 



I SCORE 
I XREG: 
; YREB: 
I 
3C0REIT 



MISEltiD 



nSLEND 

I 

I SCROLL 



m4 

112 



LDA 
BNE 
LDA 
BNE 
LDA 
STA 
LDY 
LDA 
STA 
STY 
LDA 
STA 
LDA 
STA 
LDA 
ADC 
STA 
INC 
INC 
LDA 
STA 
INC 
INC 
LDA 
STA 
LDA 
CMP 
BCC 
LDA 
BEQ 
JSR 
JSR 
LDA 
STA 
STA 
STA 
LDY 
LDA 
AND 
STA 
RT8 



LDA 

ORA 
BNE 
LDA 
SEC 
SBC 
TAY 
LDA 
STA 
STA 
LDY 
DEY 
BPL 
INC 
BNE 
INC 
LDY 
STY 
LDX 
STX 
RTS 



MSLB 
M3M0V 
TRIQB 
M3LEND 

• 1 

MSLB 
OY 
*3 

PLAYER* 
OYMB 

• •23 
AUDCt 

*3e 

SNDFl 
OX 

• 6 

oxne 

OXM0 

OXM0 

OXMB 

HPOSPBt 

SNDFl 

SNDFl 

SNDFl 

AUDFl 

• 203 
OXM0 
MISEND 
KILLIT 
MSLEND 
LOCATE 
ERASE 

• 

AUDCl 
MSLB 
KILLIT 
OYM0 
PLAYER! 

• «FC 
PLAYER 



ACTIVE? 
YES, MOVE IT 
TRISBER PRESSED? 
NO. BYE. . . 
SEt FLAB 

BET Y COORD 
PUT MI83LE ON SCREEN 
•B3B4, Y 
STORE Y 
INITIALIZE 
MI33LE 
SOUND 

CALCULATE 

INITIAL X 

COORD 

MOVE MISSLE 

RIGHT 



DECREASE 
FREQUENCY 



MISSLE AT ED8E? 

YES, KILL MISSLE 
DID MISSLE HIT? 
NO. BYE. . . 

YES, BUT MHATtiHHERE 
ZAP IT 
MISSLE DEAD 
80 KILL SOUND 
CLEAR FLAQ 

ERASE MI33LE 
»B3e4,Y 

+»B3B4,Y 



8C1 

I 

I FIND 

I 

LOCATE 



ROUTINE:ENTRY CONDITION 
SCORE DIBIT TO CHANBE 
AMOUNT TO ADD TO DIBIT 

INC SCORE, X BET DIBIT 

LDA SCORE, X AND BUMP IT 

CMP •2i DIQIT>9? 

BEQ BIB3CR YES. FIX IT 

DEY NO. ARE WE 

BEQ SCREND DONE? YES. 

BNE SCOREIT NO. LOOP 

LDA *lb DIQIT-B 

STA SCORE, X STORE IT 

STA SCRTEMP SCORE CARRY FLAO 

BNE SCR LOOP. . . 

LDA SCRTEMP FLAB SET? 

BEQ SCI NO. 

TXA LAST DIGIT? 

BEQ SCI YES. 

OEX SET XREB 

LDY •! AND YREB 

LDA »B CLEAR FLAG 

STA SCRTEMP AND START 

BEQ SCOREIT ALL OVER 

JMP HIBHSC CHECK FOR HIGH SCORE 



OUT WHERE WE HIT 





STA 


<ADR) 


Y 


FOUR PART 




INC 


ADR-i-1 




ROCK BY 




INC 


ADRfl 




3T0RINQ A 




STA 


(ADR) 


Y 


BLANK IN 




INY 






EACH OF 




STA 


(ADR) 


Y 


THE FOUR 




DEC 


ADR-H 




FORMER 




DEC 


ADR+1 




POSITIONS 




STA 


(ADR) 


Y 






LDX 


• 3 




SET SCORE 




LDY 


• 3 




TO 3B PT3. 




BNE 


ER2 






ERA3E2V 


LDA 


• 




STORE A 




STA 


(ADR) 


Y 


BLANK CHAR 




INC 


ADR*l 




IN THE 2 




INC 


ADR+1 




FORCE FIELD 




STA 


(ADR) 


Y 


POSITIONS 




LDX 


• 2 




SET SCORE 




LDY 


• 2 




TO 2aB PTS. 


ER2 


STA 


KILLIT 


CLR COLLISION FL8 




JSR 


SCOREIT 






LDA 


• 23 




SET BOOM 




STA 


EXPLODE 


COUNTER 




JMP 


XPINIT 


FIREWORKS 


1 BOOM! 
1 











TIMERF3 
NONEMl 
M2 
LEVEL 

»17 

SPEED, Y 
TIMERS 
TIMERF3 
FX 

MIS 

ABX 

Ml« 

ABY 

• 3 

FX 

FX 

HSCROL 



TIME YET? 

OR AT END OF LEVEL? 

THEN DON'T SCROLL 

BET SCROLL 

SPEED 

AND DROP 

IT IN TIMER 

3 AND RESET 

FLAB 

SCROLLED WHOLE. 

CHARACTER? 

NO,CONT. . . 

YES, UPDATE SCREEN ADD. 

WHOLE PAGE DONE? 

YES. BUMP SCREEN PAGE 

RESET 

SCROLL CNTR 



LOCt 
I 

I FIND 

I 

ERASE 



LDA 
SEC 
SBC 
LSR 
L8R 
AND 
CLC 
ADC 
STA 
LDA 
A8L 
CLC 
ADC 
SEC 
SBC 
LSR 
LSR 
CLC 
ADC 
STA 
BCC 
INC 
RTS 



A 

• *FE 

D^P•^7 

TEMPHI 

FX 



• 37 

A 

A 

ABX 

TEMPLO 
LOCI 
TEMPHI 



GET Y COORD 

AND CONVERT 

TO IRQ4 

SCREEN 

COORDINATES 

ADD THE 

START OF 

SCREEN MEM. 

SHAKE WELL AND VIOLA! 

SET LSB OF 

SCREEN 

ADD THE niSSLES 

X COORD 

CONVERT 

TO IRa4 

COORDINATES 

ADD SCROLL 

AND WE BET 

OVER BORDER THEN 
BUMP MSB 



OUT WHAT WE HIT 



I UPDATE 
t 

SCREEN 



ati 

SB 



SCREEN MEMORY IN DL 






5 

Q 
m 



• >3CRN 
ABY 
ABY 

Sll 

NONEWt 
SXIT 
LEVELUP 

• >3CRN 

• 2B 

• 6 
ABX 
DSP, Y 



DSP,Y 
• 2 



SXIT 

I 

SPEED 



*-»eZ0e ARE WE AT 
THE END OF 
2ND PAGE OF SCREEN? 
NO.CQNT. . 

YES, DELAY TILL NEW LEVEL 
BYE. . . 

SET UP NEW LEVEL 
RESET TO SCRN START 

• OF LINES TO BE SCROLLED 
OFFSET IN DL 

BET LSB AND ' 

STORE IN DL 

BET MSB AND 

STORE IN DL 

ADD TWO 

PABES 

AND HIDE IT ON STACK TILL 

LOOP 

INC DL POINTER 

DONE? 

NO, LOOP. . 

YEB, CLEAR STACK 



LDY 
LDA 
CPY 
BNE 
DEC 
BNE 
JSR 
LDA 
PHA 
LDX 
LDY 
LDA 
STA 
INY 
PLA 
STA 
CLC 
ADC 
PHA 
INY 
INY 
DEX 
BPL 
PLA 
RTS 



.BYTE 3,3,2,2,2,2,2,1,1 



Q0T2 
aOT4 



LDA 
8TA 
LDA 
STA 
STA 
LDY 
LDA 
BNE 
INY 
LDA 
BNE 
INY 
LDA 
BEQ 
CMP 
BEQ 
CMP 
BNE 
DEC 
JMP 
CMP 
BEQ 
CMP 
BNE 
DEC 
DEC 
DEC 
JMP 
CMP 
BNE 
LDA 
STA 
INC 
INC 
JMP 
CMP 
BNE 
LDA 
STA 
DEC 
DEC 
DEC 
DEC 
JMP 



TEMPLO 
ADR 

TEMPHI 
ADR*1 
HITCLR 
• 

(ADR) , Y 
BOTIT 

(ADR) , Y 
BOTIT 

(ADR) , Y 
LOCt 



BET SCREEN 
MEMORY AND 
SEARCH TILL 
WE FIND A 
NONZERO 
CHARACTER 
(A VICTIM! ) 



LDA EXPLODE FLAB SET? 

BEQ 8NDEND NO. BYE. . . 

LDA T1MERF4 TIME YET? 

BNE SNDEND NO, BYE... 

DEC EXPLODE SET TO NEXT 

LDA EXPLODE TONE+CONTRL 

STA TIMERF4 RESET FLAB 

BEQ SNDEND ANY LEFT? NO . BYE 

TAY YES, SET 

LDA EXPSND,Y THE NEXT 

STA AUDF2 TONE ♦ CTL 

LDA RANDOM AND PUT' EM 

ORA •»CB IN (THE) 

STA AUDF3 POKEY 

LDA EXPTONE,Y 

ORA ••4B 

STA AUDC2 

STA AUDC3 

LDA »2 

STA TIMER4 

RTS 

.BYTE »F3, »F4,«F3,»F2,»F2 

.BYTE »FB,»F2,»F3,»E?,»EB 

.BYTE »EF,»FB, »F1,»F2,«F3 

-BYTE •F4,»F3,»F4,»F1 ,»F3 

.BYTE »F2,»F3,«F4,»F3, »FS 

.BYTE 0,0,1,2,3,4,3,3,4,4 

.BYTE 7, 7, 8,8, 9, "J,?, IB, 10, IB 



NEXT LEVEL, PLEASE. 

•VELUP INC LEVEL 

LDA LEVEL 

CMP •Z4 

BNE LV2 

LDA »2e 

STA LEVEL 

12 LDA ••40 

STA NMIEN 
PHP 
SEI 



• 1 
ERASE4 

• 2 
BQTl 
ADR 
ERASE4 

• 3 
GOTZ 

• 4 

GaT4 
ADR 
ADR+l 
ADR-H 
ERASE4 

• IB 
Q0T3 

• 13 

(ADR) , Y 
ADR+l 
ADR+l 
ERA3E2V 

• 7 
LOCI 

• 13 

(ADR) ,Y 
ADR+1 
ADR+1 
ADR+1 
ADR+1 
ERASE2V 



IF CHAR IS 
1-4, ITS A 
ROCK. 

SET TO TOP 
RIGHT CHAR 
OF ROCK, 
THEN JUMP 
TO ERASE4 



GENERATOR? 
NO.CONT. . 
YES, KILL IT 
SET TO TOP 
OF FIELD. 

ERASE I T ' 

LOWER GENERATOR? 

NO. BYE. . 

YES, KILL IT 

SET TO TOP 

OF FORCE 

FIELD. 



BUMP LEVEL 
LVL>97 

NO.CONT... 
YES. BACK TO 
LEVEL FOUR 
DISABLE INTERRUPTS 
AND TELL COMPUTER 
TO STAY PUT 
TILL NOTIFIED! 



JSR CLRSCRN CLEAR SCRN 

LDA #9 RESET TO 

STA ABX SCRN START 

STA MSLB KILL MISSLE 

JSR SNDINT AND SOUND 

LDA • >SCRN PAGE 1 OF 

STA ABY SCREEN 

JSR SCREEN UPDATE DL 







STA 


HITCLR CLEAR COLLISIONS 






JSR 


8RID ADD GRIDS 






JSR 


ROCKS AND ROCKS 






LDA 


• RESET AND 






LDX 


#10 ADD NASTIES 


LVt 




STA 
DEX 


RIMAGE.X 






BPL 


LVl 






JSR 


ROCKINT 






INC 


LIVES ADD AN EXTRA LIFE 






PLP 


AND BACK TO 






LDA 


••CB THE REAL 






STA 


NMIEN WORLD.... 






RTS 




1 

> 


ROTATE CHARACTER SETS 


ANIMATE 


LDA 


TIMERF3 TIME YET? 



ERASE IT. 
ERASE THE 



BNE AN3 

LDA ^4 RESET TIMER 

STA TIMERS AND FLAG 

STA TIMERFS 

l_DA CHBA9 

CMP • >PLAYER+«1BBB 3RD SET? 

BEQ AN2 OOPS. . 



Q 
m 



c 



CLC NO. ODD IK 

ADC * >ie24 TO CHBflS 
BNE «N1 JMP ALW«Y3 

ftNZ LDfi • >PLAyER'l-*0Se0 RESET TO 

ANl STB CHBAS IST CHAR 

AN3 RTS BET AND BYE 

I 

I HIGH SC0RE7I717! 

t 

HIBH3C LDY *0 CHECK SCORE 

Mil LDA BCORE.Y FROM M3 TO 
CMP HIQH.Y L3 DIBIT 
BEO HIS EQUAL LOOP 
BCC HSCOREND LOWER, CONT 
BCS NEWHIBH REPLACE HIGH SCORE 

HIS INY 



I 

GATES 

OFFSET 

I 

I MAIN GAME DLI 

I 



BYTE 233, 1 SB , AB , 3a, SB, 6B. 60 , ■?» , 7a 
BYTE 233, 2BB, IBB, 73, 3B, 3B , SB, 2fla , laB 



.BYTE •BB,»B'?,»0'?,»BF,B,B,e,B 
.BYTE e,B,B,e,B,»lB,»ia!«44 
.BYTE »92,«*4,»2B,»lB,a,B,B,B 

.BYTE a.B.B.a a.a.a.B 

.BYTE 2,0,0,0,0, B,B,B 



DLI 



PHA 
TXA 

LDX DLINE 
INC DLINE 
LDA ROCKPOS 



SAVE XREQ 
AND A REG 



INC NASTY 



X GET LOCATION 



> 

z 
> 

O 
Q 

a 
o 

Tl 
C 
H 
Z 

a 





CPY 


• 4 






BNE 


HIl 


LOOP. . . . 


NEUHteH 


LDY 


»a 


COPY 


NHl 


LDA 


SCORE, Y 


SCORE INTO 




STA 


HIGH.Y 


HIGH SCORE 




INY 








CPY 


• 4 






BNE 


NHl 


LOOP 


HSCOREND 


RTS 






1 ADD FORCE FIELD GRIDS 


GRID 


LDA 


LEVEL 


BET SPACE 




3EC 




BETWEEN 




SBC 


»17 


GRIDS FOR LEVEL 




TAX 








LDA 


GATES, X 


AND THROW 




STA 


TEMP 


IN TEMP 




LDY 


• 


THEN BET 




LDA 


• >SCRN 


OFFSET AND 




STA 


TEMP2 


ADD IT TO 




LDA 


OFFSET, 


< START OF 




STA 


ADR 


SCREEN MEM. 


GRl 


LDA 


TEMP2 


POKE THE 




STA 


ADR + 1 


3 GRID 




LDX 


• 7 


CHARACTERS 


aR2 


LDA 


• 3 


INTO 




STA 


(ADR) , Y 


MEMORY 




INC 


ADR-l-l 






INC 


AOR-H 






LDA 


• & 






STA 


(ADR) ,Y 






INC 


ADR+l 






INC 


ADR+1 






LDA 


»7 






STA 


(ADR) ,Y 






INC 


ADR-H 






INC 


ADR-i-l 






DEX 








BNE 


QR2 




GRS 


LDA 


RANDOM 


FIND A 




AND 


• »1F 


VALID BATE 




CMP 


*20 


LOCATION 




BCS 


BR3 






CMP 


»S 






BCC 


BR3 






DEC 


ADR 


AND ADD THE 




A3L 


A 


FORCE FIELD 




CLC 




AND 




ADC 


TEMP2 


BENERATORS 




STA 


ADR-H 






LDA 


• 8 






STA 


(ADR) ,Y 






DEC 


ADR+l 






DEC 


ADR+l 






LDA 


»9 






STA 


(ADR) ,Y 






DEC 


ADR + l 






DEC 


ADR+t 






LDA 


#140 


FORCEFIELD 




STA 


(ADR) , Y 






INY 








LDA 


• 






STA 


(ADR) , Y 






DEC 


ADR+l 






DEC 


ADR + l 






STA 


(ADR) ,Y 






DEY 








LDA 


#139 


FORCEFIELD 




STA 


(ADR) , Y 






DEC 


ADR+l 






DEC 


ADR+l 






LDA 


• 10 






STA 


(ADR) ,Y 






DEC 


ADR + l 






DEC 


ADR+l 






LDA 


• 8 






STA 


(ADR) , Y 






LDA 


ADR 


ADD SPACE 




ADC 


TEMP 


AND SCREEN 




9Tfl 


ADR 


LOCATION 




BCC 


QRl 


BUMP MSB 




INC 


TEMP2 


IF 




LDA 


TEMP2 


NECESSARY 




CMP 


• >3CRN 


►»aia0 OUT OF R00M7 




BEQ 


BRl 


NO, LOOP. . 




RTB 







i-un nub<r>i-ua,f\ act L.ui-ptttui<« 

STA HP08P»+3 AND STORE IN PLR2 

STA HPO8P0+2 AND PLR3 

LDA C0L0R2,X PUT COLOR 

STA HC0LPM2 DIRECTLY 

LDA COLORS. X INTO 

STA HC0LPM3 HARDWARE REGISTERS 

CPX »10 ANY LEFT? 

BNE DLI YES, LOOP.. 

LDA » <DLI2 NO, POINT 

STA VERTI TO NEXT 

LDA * >DLI2 DLI 

STA VERTI+1 



DLI 


PLA 




RESTORE A 




TAX 




AND X 




PLA 








RTI 






DLI2 


PHA 








LDA 


• »F8 


POKE SCORE 




STA 


HCOLPe 


COLORS 




LDA 


#»98 


DIRECTLY 




STA 


HCOLPl 


INTO 




LDA 


• 38 


HARDWARE 




STA 


HC0LP3 


REGISTERS 




LDA 


» <DLI 


POINT TO 




STA 


VERTI 


MAIN 




LDA 


• >DLI 


DLI 




STA 


VERTI+1 






PLA 






1 

1 ATTAC 


RTI 






TING » 
LDX 


JASTIEa. 




ATTACK 


• 






STX 


DLINE 




ATS 


LDA 


ROCKSPD 


X NASTY ACTIVE? 




BEQ 


ATI 


NO.GIVE IT LIFE! 




LDA 


ROCKPOS 


X 'V'ES MOVE 




sec 




IT 




SBC 


ROCKSPD 


X LEFT 




BNE 


AT2 


STILL ON 3CREEN7 




STA 


ROCKSPD 


X NO, RESET POSITION 




LDA 


• 234 


AND SPEED 


ATZ 


STA 


ROCKPOS 


X 


AT4 


INX 




MORE 




CPX 


• 10 


NASTIES? 




BNE 


ATS 


YES, LOOP. . 




RTS 






ATI 


LDA 


NONENl 


NOT END OF LEVEL? 




ORA 


RANDOM 


CAN WE GIVE IT LIFE? 




BNE 


AT4 


NO.DRATS. . 




LDA 


• 1 






LDY 


RANDOM 






CPY 


• IS 


A FAST ONE? 




BCS 


AT0 






LDA 


• 2 


YES. FUN! ! ! 


AT0 


STA 


ROCKSPD 


X 




LDA 


LEVEL 


LVL>6? 




CMP 


• 22 






BCC 


AT10 


NO. LOOP 




INC 


ROCKSPD 


X SPEED THINGS UP 


AT10 


JMP 


AT4 


LOOP 


1MAGE2 


.BYTE 0.0,0 


B,a,0,»7a, »FC 



.BYTE •^8,a,»,„,„, w, -,i>. 

.BYTE B,0,a,B,»lC,«3E, •yp.^iB 

.BYTE •7F,»SD, »22,»lC,0,0,B,a 

.BYTE 0,0,0,a,0,0,»7F,»FB 

.BYTE »7F, 0,0, 0,0,0.0,0 

.BYTE 0,0,0,0,»1b, •3C,»7E, »3C 

.BYTE »3A, »ii, »7E, »3C, •IB, 0,0,0 

.BYTE 0,0,0, 0,7, »aF, •0E, »1C 

.BYTE 0,»1C,»0E,»BF,7,0,0,» 

-BYTE 0,0,0,0,0, 0, »2C,»24 

.BYTE •2F, »3D, 9, »0F, 0,0.0,0 

.BYTE 0,0,0,0,0,0,»la,»38 

.BYTE •7C,»3B, •10, 0,0,0,0,0 

.BYTE 0,0,0,0,0,0,0,2 



.BYTE 7, 2,0, 0,0,0,0.0 

.BYTE 0,o;a!7,»0E,»3C,0,»FC 

.BYTE a,»3c,»iiiE,7,0,0,a,a 

.BYTE 0,0,0,0,e,0,0, »i4 

.BYTE a, •22, »lC, 0,0. 0,0.0 

.BYTE 0,0.0,0,3,7,«3F,»3F 

.BYTE •3F,7.3,a,0.O,»,0 

.BYTE a.O »iB.»24 »42,»81 .(CS 

.BYTE »E7,«FF.»7E, •3C.»i8, 0.0,0 

.BYTE 0.0,0,0.»0F, 0,0,0 

.BYTE •FC,a,0,0.»*F 0,a 

.BYTE a 0,0,»F0,»90,»90,»D0 



I INITIALIZE 


NASTIES 




ROCK I NT 


LDA 


LEVEL 


ARE ME 




CMP 


• 17 


PAST THE 1ST LEVEL? 




BEQ 


RK7 


NO, BYE. . 




LDA 


• 10 


reAd the 




STA 


TEMP 


IMAGES OF 


RKl 


LDY 


• 13 


THE NASTIES 




LDA 


TEMP 


(PLAYERS 




ASL 


A 


2 AND 3) 




ASL 


A 


INTO PMQ 




ASL 


A 


MEMORY 




ASL 


A 


WHERE THE 




CLC 




DLI WILL 




ADC 


• 34 


FIND'EM. 




TAX 






RK2 


LDA 


IMABEl.Y 




STA 


PLAYER+«060a,X 




LDA 


IMAaE2,Y 




STA 


PLAYER+ 


•0700, X 




DEX 








DEY 








BNE 


RK2 






DEC 


TEMP 






BNE 


RKl 






LDX 


• 10 


SET INITIAL POSITION 


RK4 


LDA 


• 234 


OFF SCREEN AND 




STA 


ROCKPOS 


X ZERO SPEED 




LDA 


•a 


SO THEY 




STA 


ROCKSPD 


X STAY 




DEX 




PUT UNTIL 




BPL 


RK4 


UE ACTIVATE 




LDX 


• 9 


THEM 




LDA 


• 4 




RK3 


CLC 








ADC 


• *30 


GIVE EACH 




STA 


C0L0R2, 


K ONE TWO 




DEX 




DIFFERENT 




BPL 


RKS 


COLORS 




LDX 


• 9 






LDA 


• *88 




RK& 


CLC 








ADC 


• •30 






STA 


COLORS, 


X 




DEX 








BPL 


RKt 




RK7 


RTS 






1 EXPLOSION 


FIREWORKS) 


XPLODE 


LDA 


XPIMABE 


BET IMA8E NUMBER. 




BEQ 


EXPEND 


ANY LEFT? NO. BYE... 




DEC 


EXPTIME 


TIME YET7 




BNE 


EXPEND 


NO, BYE. . . 




DEC 


XPIMABE 


neIt image 




LDA 


XPIMASE 






ASL 


A 


OFFSET IN 




ASL 


A 


IMAGE DATA 




ASL 


A 






ORA 


• »07 






TAX 








LDA 


•a 






STA 


TEMP2 






LDY 


XPY 




XPLOOP 


LDA 


XPLOD.X 


STORE IMAGE 




STA 


PLAYEfe+»BS00.Y IN PLAYERl 




DEX 








INY 




NEXT BYTE 




DEC 


TEMP2 


ANY LEFT? 




BNE 


XPLOOP 


YES. LOOP 




LDA 


• 6 


NO SET 




STA 


EXPTIME 


TIMER 




LDA 


XPIMABE 






BNE 


EXPEND 






STA 


HPOSPa+ 


1 


EXPEND 


RTS 






XPINIT 


LDX 


• 7 


INITIALIZE 




LDA 


•a 


EXPLOSION 




STA 


TEMP2 






LDY 


XPY 


SET IT'S 




JSR 


XPLOOP 


LOCATION 




LDA 


OYM0 


AND PUT IT 




STA 


XPY 


ON THE 




LDA 


OXMO 


SCREEN THEN 




STA 


HPOSP0+1 




LDA 


• 9 


SET IMAGE 




STA 


XPIMABE 


POINTER 




LDA 


• I 


AND TIMER 




STA 


EXPTIME 






RTS 






1 EXPLOSION SHAPE DATA 

1 



o 



a 

Q 






> 

> 

o 

Q 

O 
O 

C 



CD 



.BYTE 0.0,0,0,0,0,0 

.BYTE «81 ,0,0;0, 0,0,0, »B1 

.BYTE *81,»42,0 a 9 «4Z,»ai 

.BYTE •8'?,»42,»24,»aB,»01,»24, »4Z,»91 

.BYTE 8,»4A »i4,»C0,3,»24, »32,»1D 

.BYTE a,8,«ic.»e0,7,»i4,»10,»l0 

.BYTE 0.a,8,»7B,»lE,«10 »10,a 

.BYTE 0,0,8,»38, •IC, »10, 0,0 

.BYTE 0,0,0,*lB,*ia,0,0, 



CLR FUAB 



J KILL ATTftCKINB NABTIES! 



KILLPLR LDft 


OYn0 


BET Y COORD 


SEC 




AND CONVERT 


SBC 


#28 


TO BET tt 


L3R 


A 


OF NASTY 


LSR 


A 


WE HIT 


LSR 


A 




LSR 


A 




TAX 






LDA 


• 


RESET SPEED 


STA 


RQCK3PD 


, t 


LDA 


»234 




3TA 


RQCKP03 


, K 


INC 


RIMA8E. 


X SET TO 


LDA 


RIMA8E, 


X NEXT NASTY 


STA 


TEMP 


IMABE 


STX 


TEMP2 


SCORE- 100 


TAY 




TIMES IMABE 


LDX 


»Z 


NUMBER-fl 


JSR 


SCOREIT 




LDX 


TEMPZ 




LDY 


TEMP 


ANY IMASE3 


CPY 


»8 


LEFT? 


see 


KLl 


YES, NEXT 


LDA 


»0 


ND.RE3ET 


STA 


RIMABE. 


X t6 IMABE »0 


STA 


TEMP 




KLl LDA 


• 23 




STA 


EXPLODE 




TXA 






A8L 


A 


READ NEW 


ASL 


A 


NASTY 


ASL 


A 


INTO PM8 


ASL 


A 


MEMORY 


CLC 






ADC 


#49 




TAY 






LDA 


TEMP 




A3L 


A 




ASL 


A 




ASL 


A 




ASL 


A 




STA 


TEMP 




ORA 


• «0F 




TAX 






KL2 LDA 


IMA8E1. 


X 


STA 


PLAYER+»0400.Y 


LDA 


inABE2, 


X 


STA 


PLAYER* 


•0700, Y 


DEY 






DEX 






CPX 


TEMP 


DONE? 


BNE 


KL2 


NO, LOOP 


STX 


HITCLR 


YeS. CLEAR 


LDA 


#0 


COLL. FLAB 


STA 


KILLPL 




JMP 


MISEND 


KILL MiaSLE 


I TITLE SCREEN 




TITLE LDA 


• <TITLEPB PUT 



AND POSITION 



I 

3TLEVEL 

I 

I TITLE 

I 

TDLI 



LDA • <DLI 

STA VERTI 

LDA * >DLI 

STA VERTI+1 

LDA •■0-32 

LDY »3 

3TA 3C0RE-1. 

DEY 

BNE LP3 

STY OVER 

STY TITLF 

LDA LEVEL SET LEVEL 

STA STLEVEL 

RTS 

LDA TIMERF3 DELAY LOOP 

BNE LQ0P2 

BED LOOP 

.BYTE 17 

SCREEN DLI 



I TITLE 
I 

TITLEPB 



PHA 
TXA 
PHA 
LDX 
LDA 
STA 
LDA 
STA 
3TA 
CLC 
ADC 
STA 
DEX 
BPL 
LDX 
LDA 
STA 
STA 
SEC 
SBC 
STA 
DEX 
BPL 
LDA 
BNE 
LDA 
STA 
STA 
INC 
LDA 
STA 
LDA 
STA 
PLA 
TAX 
PLA 
RTI 



PA8E DISPLAY LIST 



• 13 
DSHIFT 
CSHIFT 
C8HIFT 
W3YNC 
HCOLP0 

• 2 
CSHIFT 

TDLIl 

• 13 

CSHIFT 
WSYNC 
HCOLP0 

• 2 
CSHIFT 

TDLI2 

TIMERF4 

TDLIX 

• 1 

TIMERF4 
TIMER4 
DSHIFT 

• <DLI2 
VERTI 

• >DLI2 
VERTI+1 



SAVE X AND 
A REBISTERS 



BET COLOR 



WAIT FOR NEW SCAN LINE 
STORE IT IN HARDWARE 
ADD TWO 



ANY MORE LINE37 

YES, LOOP 

RESET COUNT 

BET COLOR 

WAIT FOR NEW LINE 

STORE IT 

SUBTRACT 2 

TO BET THE 

MIRROR EFFECT 

ANY MORE? 

YES. LOOP 

TIME YET? 

NO.CONT. . 

YES, RESET 

TIMER AND 

FLAB AND 

INC THE START COLOR 

POINT TO 

NEXT DLI 



RESTORE 
REBISTERS 



LEVEL 
BLANK 
ME3SASE 



.BYTE •34 

.WORD 

.BYTE »D4 

. WORD 

.BYTE •34 

.WORD 

.BYTE »D4 

.WORD 

.BYTE »34 

.WORD 

.BYTE »D4 

.WORD 

.BYTE »34 

.WORD 

.BYTE *D4 

.WORD 

.BYTE »34 

.WORD 

.BYTE »D4 

.WORD 

.BYTE »54 

. WORD 

.BYTE »D4 

■WORD 

.BYTE »34 

. WORD 

.BYTE »D4 

. WORD 

.BYTE »34 

.WORD 

.BYTE »C6 

.WORD SCORELN 

.BYTE 4,6,»41 

.WORD DSP 

.3BYTE <-»a».". 

.SBYTE ■f»a0 

.SBYTE 

.3BYTE 

.3BYTE 

. SBYTE 

.3BYTE 

.9BYTE 

.SBYTE 

.3BYTE 



000&0- 
" llvei:' 

"3- 

h 1 : " 
" 00000 ~ 
" 1 eve I ; 
"1" 



.SBYTE 



SAME OVER 



I CHARACTER SET •! 



STA DLST TITLE 
LDA • >TITLEP8 PABE 
3TA DLST+1 SCREEN 






5 
o 
m 



L00P2 



LP7 



JSR 


PLRINT 


BET RID OF PM3 


LDA 


• •C0 


ENABLE DLI -3 FDR 


STA 


NMIEN 


RAINBOW EFFECT 


INC 


TITLF 


SET FLAB 


LDA 


STLEVEL 


UPDATE 


STA 


LEVEL 


LEVEL 


LDA 


C0N30L 


13 SELECT 


CMP 


• 3 


PRESSED? 


BNE 


LO0P2 


N0,CONT, . 
YES. INC 


INC 


LEVEL 


LDA 


LEVEL 


LEVEL 


CMP 


• 26 


LVL>7? 


BNE 


LP2 


NO.CONT. , 


LDA 


• 17 


LVL-1 


STA 


LEVEL 




LDA 


• 30 


DELAY 1/2 


STA 


TIMERS 


SECOND 


STA 


TIMERF3 




LDA 


LEVEL 


PUT NEW 


STA 


TITLE4+ 


14 LEVEL 


J3R 


ANIMATE 


ON SCREEN 


LDA 


TRia0 


IF TRIBBER 


BEB 


LPT 


OR START 


LDA 


CONSOL 


13 PRESSED 


CMP 


• 6 


CONTINUE. IF NOT 


BNE 


LP3 


LOOP. . . 


LDA 


• <DSP 


POINT TO 


STA 


DLST 


MAIN BAME 


LDA 


• >D3P 


SCREEN 


STA 


DLST+l 





.BYTE 
.WORD 
.BYTE 
.WORD 
.BYTE 
.WORD 
.BYTE 
.WORD 
.BYTE 
.WORD 
.BYTE 
.WORD 
.BYTE 
.WORD 
.BYTE 
-BYTE 
.WORD 
-BYTE 
-WORD 



•70. •70, •46 
SCORELN 
•70.^F0,^47 
TITLEl 

• 47 

TITLE4 
•70,»70, ^46 
TITLE2 

• 46 

TITLE3 
»F0.»47 
TITLE3 
•70.»C6 
TITLE4 
»70,»7a, •70 
•70, •TO, •Ta. •46 
SCORELN 
6,6,^41 
TITLEPB 



BYTE 103,88,84,84,80,64,0,0 
BYTE Z53;23i,2l3,il3 2lS,il3,233,Z33 
BYTE 233,233, 1 93 , 1 93 , 1 93 . 193.233.233 
. BYTE 233. 253, 233.235, 233; 233| 233! 233 
-BYTE 13,3,3, 13, 13,3, i. 13 
.BYTE 63,243,245,234 234,243.243.43 
. BYTE 43, 243 , 243. 234 , 234 , 243 I 243, 43 
.BYTE 193,60,0,193,40,0,193.60 
.BYTE 0,193,40,0, 193, i0;0, 1*3 
.BYTE 43 24* 240. 192 192,240,240,43 
•BYTE •FF,»4*,^4*,^4*.^4*,^4*,^4*,«FF 
.BYTE e,^lE,»21,^2D,»29,^2D,^21,^lE 



I CHARACTER SET »2 



TITLEl 
TITLE4 
TITLE2 
TITLE3 
TITLe4 
TITLE3 
! 



.SBYTE " COSMIC " 
.SBYTE ■• DEFENDER" 
.SBYTE +^80." BY 

.3BYTE •>-»B0," phill roev 
.SBYTE " islect level: 
.SBYTE i-^aa," analog computing 

DISPLAY LIST 

.BYTE •70,»70,^C6 

.WORD SCORELN 

.BYTE »34 

.WORD 

.BYTE •D4 

. WORD 

.BYTE ^34 

.WORD 

.BYTE ^04 

.WORD 

.BYTE ^34 

.WORD 

.BYTE ^04 

.WORD 



.BYTE 0,1.1.20.17,26,21,83 

.BYTE 0.64.30,80, 100 a4;69, 81 

.BYTE 89 S9 2i 21 17's.l,0' 

.BYTE 10s, B8, 84,84,80 64 

.BYTE 253, 233, 233, 233; 235, 533. 253. 233 

.BYTE 233,235,213,213 213 213 235 233 

.BYTE 235,233, 193. 195, 193! 193.233,233 

.BYTE 13,3,3, 15, IS, 3. S. 15 

.BYTE 43,245,245, 192, 192,243.243.63 

.BYTE 63,245,245, 192, 192 243 243 A3 

.BYTE 0.193,40,0. 195,40,6, I9S 

.BYTE 46,0,195,60,0, l95 6A,0 

.BYTE 43.240,240, l9i,19i, 2*0. 240, 43 

. BYTE •FF, »9t,^92, •9i,^9i, •9i, »94, »FF 

.BYTE 0,^lE,»21,^2D,^29,^iD,^il,»lE 



I CHARACTER SET •S 

I 

CHaET3 



.BYTE 0,1,1.20.17,24,21.33 

.BYTE 0,64,80,80, 100:S4: 69,81 

.BYTE 89,^89.24,21,17.3,1,0 

.BYTE 10S,8&.a4,a4 8i,i4:0,0 

.BYTE 255,253, 193, 193, 193, 193,233.233 

.BYTE 253,255,233,233, 233,233.233,233 

.BYTE 235.233,215 2 13. 213, 2 13. 233, 233 

-BYTE 13,3,3,13,15,3,3,15 

.BYTE 43,243,243,213,213,243.243.63 

.BYTE 63,243,243.213 21 3,2431243! 63 

.BYTE 60,0,193,40,0,193,60,0 

.BYTE 195,40,0, 193.60 I9i, 60 

.BYTE 63.240,240,192 194,240,240,63 

.BYTE •FF,^24,^24,^24,^24, »24.^24,^FF 

.BYTE 0, •Ie, •il ,»2D,^29, •2D,^21 , •IE 

•- •02E0 RUN PR08RAM 

.WORD START 

.END 



I 



DR. P.P. QUICK, P.P. 

DR. QUICK TELLS HOW AN 
ERROR LED TO A GREAT PRODUCT: 

The UGLY Pisk 

Q. Doctor Quick. Is it true that your company's 
remarkable new product actually resulted from 
a MISTAKE? 

A. Ja. A lulu, I'm telling you! A real pip. 

Q.And the error occurred while covering up 

mistakes in your NameBrand and LogoLina 

Diskettes? 

A. Ja, but not to confuse persons by this! Here is 
the sanne best quality, not a thing wrong. Top of 
our line PDQ disks! So maybe a name or logo 
gets smudged or cludged, right? Not looking so 
pretty good. It happens. But not going to a 
customer like such, ja? Never! 

So what next: they will fix it. They will cover 
up a name-smudging with a nice label! Ready 
for selling like other labelled disks, but better, 
ja? 

0. Sounds like a good Idea. Why didn't It work out 
that way? 

A. Some acid freaks come in, design a label. Cat! 
it a label? A mess we got! Then these hoop 
heads dream up a disk jacket fit to scare a 
tiger, make a elephant wet his pants. Terrible! 

Q. I hear the result is so unsightly the company 
decided to add another label to each disk. 

A. You hear good. Every disk got a "Ugly" on it so 
everybody knows we don't like it, too. 

Q. And now you're selling these "ugly" disks? 

A. Ja, with such a gorgeous price for top quality, 
who cares ugly? Ugly, shmugly! These disks 
every one is a two sider and, how you say it, 
toodle-density PDQ disk. 

Q. Double sided and double density! That's great! 
Do they carry a warranty like NameBrand and 
LogoUne Diskettes? 

A. The very one, ja, every disk made a hundred 
percentage error-free for 21 years, and you say 
so too, or getting a new one, on the house. We 
are talking PDQ now: the best warranty for the 
best disk! 
For looks, well, don't wear them in public, ja? 

Q. They'll work in a single-density 810 drive? 

A. Ja, 810, 1050, 1985, you name it. With them is 
even a how-to-do-it writing for using disks on 
the turnover. 

Q. Ah, you can use both sides! l-low much do 
"ugly disks" cost? 

A. Sit down, this you won't believe. Up to 4 boxes 
of ten per each, sending only $25.70 a box! Buy- 
ing 5 boxes or more, all you want, is $23.90 a 
box! Amazing? For toodle side, toodle density, 
premium grade, and 21-year gimme-back? You 
betcha my life amazing! I hardly believe it, too! 
Now I tell you a thing bad and a thing good. 
Which is first? 

Q. Give us the bad news first, Doctor Quick. 

A. Okay. You got to send in $2.00 with your order, 
for the shaping and bundling, whatever, you 
know? On top of the disk price. Add it right on. 
USA or Canada only, others more.* 

Q. That's not so bad. What's the good news? 

A. If the order is before August 31, here in 1985, 
subtract THREE BUCKS for every box you get. 
Can you believe tfiat? Is that a nice introducer? 
/can't believe it, almost! I think I am dreaming! 
Pinch me! 

Now here is more something good: try them, 
30 days. Put them all working hard. If you don't 
like them twice what their costing was, send 
them back clean without a damage. I send you 
right off the purctiase money, ja, true! 

0. You've made quite an offer! You really want 
people to try them! 

A. You think I am here to sing Liebestraum? I want 
people should try them, ja. They try once, they 
will send again, sure! // they can stand ugly. 
Whew! Here we got champion uglies, in a clash 
of their own. You got to see this to still not 
believe! 
Orders should hurry in right away, to: 



Dept. 29 
13 Whitest. 
Seneca Falls, NY 13148 
SENECOfy^ is a registered trademark of 
Seneca Computer Company, Inc. 

"Orders outside USA and Canada add $1 per box 
plus $4 for the order. NY State residents add 
sales tax. If paying by check, allow 3 weeks for 
check to clear. 

CIRCLE #117 ON READER SERVICE CARD 



LOW COST 

HOME SOFTWARE 

GIVE YOUR COMPUTER SOMETHING 
TO THINK ABOUT ! 




HOME OFFICE 

Word Processor 
Data Base/ Mail List 

RECREATION 

Orbiting Body 
Color War 
Connectr 
many others 



SING-A-LONG 

Enter & Play Music /-^v^- 
Display Lyrics & Graphics'^ 

UTILITIES 

Online Terminal 
Sector Copier 
DOS with BASIC 
many more 




ATARI WRITER 



Diskettes for ATARI 400,800,XL,XE 
Includes instructions & documentation. 

$ 8.95 Each 1st Class 

All 4 for 29.95 U.S. Delivery 

Please add 1 .75 for postage & handling 



MISTY MOUNTAIN SOFTWARE 

10324 W. 44th #2A 
WHEATRIDGE, CO 80033 




CIRCLE 0118 ON READER SERVICE CARD 



BREAKS? 

Fast, Reliable Repair 

for Atari 810 & 1050 

Disk Drives 



■ 3 Day Turnaround 

■ 90 Day Warranty 

■ $85 Flat Rate with 
Repairable Exchange 

■ Spare Parts Available 

Dealers — Special Rates Available 
Ask about Express Expedite 

Add $10 .shipping & handling. 
Check, MO, Visa, MC 

MPS 

The Disk Drive Specialists 

(916) 786-6550 



Call 8:00-5:00 Pacific Time 



CIRCLE #120 ON READER SERVICE CARD 



KEYBOARD 
TEMPLATES 

1 Have the RIGHT 

commands for your 
software at your 
fingertips' 



• Heavy guage plastic 
for lifetime of use 

• "At-A-Glance" sum- 
marizes all commands 
required to learn and 
operate your programs 

• Symbols and function 
keys explained 

•The preceding copyright of Atari, LJK and Synapse 

800 and XL Series 




Syncalc, Syn File 

Atari Writer 

Letter Perfect 

Data Perfect 



1 491 

Includes shipping 



Send CHECK or MONEY ORDER to: 



Dept. 2, 86 Ridgedale Avenue, 
Cedar Knolls, NJ 07927 

New Jersey Residents include 6% sales tax. 

Dealer inquiries invited. 

CIRCLE #119 ON READER SERVICE CARD 



SEE HOW TO USE YOUR 
ATARI COMPUTER 
THE EASY WAY. . . 

ON YOUR VCR 

Good for use with 
Atari 400, 800 and XL series. 

Tape includes: 

1. Using a printer, recorder 
or disk drives. 

2. The keyboard. 

3. BASIC programming. 

4. The DOS. 

5. And MUCH MORE. 

WE SHIP WITHIN 24 HOURS. 

Personal checks must clear. 

Add $1.50 for shipping. 

Florida residents, add 
5% sales tax. 

VISA/MasterCard 

(include number and expiration date of card) 

RAINBOW STARR 

PRODUCTS 

P.O. BOX 162953, MIAMI, PL 33116 

(305) 255-7330 

Atari Is a registered trademark of Atari Corp. 
DEALER INQUIRIES INVITED. 



CIRCLE #121 ON READER SERVICE CARD 





ATARI'S 520ST: 

Our First Look 



by Tom Hudson 



It had been eagerly awaited by the 
ANALOG Computing staff since the Jan- 
uary C;onsumer Electronics Show. On 
Vlarch 27, 1985, it arrived — Atari's new 
entry info the 16-bit computer market, 
the 5 20 ST. 



ANALOG Computing ordered one of 
the 520ST development .systems as soon 
as it was amiounced that Ataii was offer- 
ing them to interested software devel- 
opers. With an ST system in the office, 
we'd be able to familiarize om'selves with 
the programming and operation of the 
STs before their release to the public. 
This article will bring you up to date 



on our findings and my personal obser- 
vations. 

The ST hardware. 

As most of our readers should know 
by now, the ST system is based on the 
Motorola 68000 microprocessor. Run- 
ning at a clock speed of 8 megahertz, 
this processor is capable of handling ei- 
ther 16 or 32 bits of data in its internal 



i 



p 



^ Atari's 520ST . 



ontinued 



registers, hence the name "ST" [Sixteen/ 
Thirty-two). This abihty to manipulate 
larger blocks of data, combined with the 
high clock speed, makes the ST a for- 
midable piece of hardware. 

The ST computers come in two mem- 
ory sizes: 128K bytes (the 130ST] and 
512K bytes (the 520ST). Although 128K 
is fine for most applications, 512K is bet- 
ter if you're considering developing your 
own software. 

But what good would a computer be 
if it wasn't able to talk to the outside 
world? The ST has been designed to in- 
terface with the outside world in sever- 
al ways. 

The system has a built-in floppy disk 
controller and interface (Photo 1), which 
easily connects to S'A-inch semi-rigid 
floppy ("stiffy"?) drives. These drives 
can store up to 1 megabyte on a disk. 

A high-speed hard disk interface is 
also standard on the ST (Photo 1). This 
allows comiection to hard disk drives, 
high-speed mass storage devices. Typi- 
cal hard disk drives start with 10 mega- 
bytes of memory and go up from there. 
The ST's hard disk interface allows data 
transfer at speeds up to 1.3 megabytes 
per second to and from the disk. I'm 
hoping that the hard disk interface can 
also be connected to other I/O devices, 
such as ultra-high-resolution graphics 
"frame buffers." 

The ST computers have three separate 
video outputs (Photo 1): anRF modula- 
tor for normal black-and-white or color 
TV; composite and RGB color monitor 
outputs; and extra-high-resolution mon- 
ochrome display outputs. 

Even though the ST will work fine on 
ordinary TV sets in its low-resolution 
color mode, I feel that a good color mon- 
itor is a "must" for it — otherwise, you 
waste a good deal of its potential. 

The ST has an I^S-232 serial commu- 
nications port (Photo 1), enabling you 
to connect modems, digitizing tablets, 
plotters, printers and other RS-232 stan- 
dard equipment. More on the RS-232 
port later. 

There's a Centronics parallel printer 
port on the ST (Photo 1] , so you can eas- 
ily connect all types of printers to the 
computer. 

A MIDI (Musical Instrument Digital 
Interface) is provided (Photo 1), so that 
those who are so inclined can connect 
musical instruments, such as electronic 
synthesizers, to the ST. 

A cartridge slot on the left side of the 
ST (Photo 2) allows you to connect car- 



POWER MIDI MIDI TELEVISION CENTRONICS FLOPPY DISK 
SWITCH OUT IN CHANNEL PARAUEL CONNECTOR 

,^-,i ^:" ' a mam hobt . , 
i 1 1 f 


1 .M®mmt' •bh 


SHHI wBHBB ^B 


^^^^^fc -^^ -^^ -^^ ^^ 




RESET POWER TELEVISION RGB/MONOCHROME 
BUTTON CONNECTOR OUTPUT MONITOR 

OUTPUT 


RS-232 HARD DISK 
SERIAL INTERFACE 
PORT 







Photo 1. 




Photo 2. 




Photo 3. 
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Photo 4. 



tridges with up to 128K of memory for 
fast-running programs. 

The ST has two joystick ports on tlie 
right side (Photo 3) for input with stan- 
dard joyslicl<.s. One of the ports doubles 
as a moLise input port, allowing the use 
of a two-button mouse, the new standard 



input device which lets you point to var- 
ious choices on your screen, 

{•'inally, as far as its hardware is con- 
cerned, the ST has a sophisticated, mi- 
croprocessor-controlled keyboard with 
a 58-key typewriter-style format, 8-key 
cursor control cluster 18-key numeric 



keypad and 10-key function key strip. 
Since the keyboard has its own micro- 
processor, it can be programmed to per- 
form a variety of special functions, 

I've mentioned all the hardware intei'- 
faces that are standard equipment on the 
ST, but what about the most important 
interface? What about the USER inter- 
face? 

A real GEM. 

The real star of the ST show is GEM 
(a registered trademark of Digital Re- 
search, Inc), the Graphics Environment 
Manager from Digital Research — the 
same folks who brought the microcom- 
puter world CP/M, a standard among 
micro systems, I feel that GEM is des- 
tined to be a new standard for micros, 
something that is badly needed in to- 
day's ever-changing computer industry. 

Why do I feel that GEM is going to be 
a new standard? Because, in a matter of 
hours, both Gharles Bachand and I felt 
completely comfortable with the GEM 
user interface, and I was writing pro- 




Genie '^ 




Experience the MA5ic 
of \\our covHpwter ! 

Whetlier you are using a word processor, or a spreadsheet, 

adding lo a data base, or jjsl playing your lavorile game. 

Now. wilh one keystroke, you can instantly: 

• Jot down several pages of notes 

• Edit and print a tile 

• Perform a quick calculation on a five 
function calculator {in decimal or hex!) 

• Look up Atari control codes 

• Get a disk directory 

• Lock. Unlock. Rename, and Delete files 

• Even format disks 

And in the blink of an eye return to 

just where you left off! 
All of this is possible only with Genie- 
Genie is completely invisible to almost all 
programs, and appears only when you summon it. 
It uses only the "extra" RAM in a 64K Atari XL or 
XE, so It doesn't even take up memory space! 

Available for Atari XL or XE computers witf- at least 64K. 

Genie is only S29.95 plus 2.00 tor postage and tiandling 

(Texas residents please add 5 1/8% sales tax). 

New Horizons Software 

PO Box 180253 • Austin, TX 78718 
For more information, call (512) 280-0319 



New Horizons 

Expanding Your Life 

DtMler InQUires Welcome 
Alan IS a registered trademark of Alan, Inc. 



ATTENTION ATAR\ DISK 
DRIVE OWNERS 

Back up your 
valuable software. 



THE CHIP 

THE CHIP wilh Archiver/Editor Software tor the Atari 
810 and 1050 disc drives. Includes Disassembler & 
Sector Editor. Includes Custom Formatter and Map- 
per. Backs up virtually any disk. 

$129.95 POSTPAID 

Available soon lor 

other Atari compatible disc drives. 

HAPPY 810 ENHANCEMENT 

Complete wilh Warp Speed software pacl<age. Plug-in 

inslaliation — no soldering. Backs up any disc. 

Regular Price $249.95 

LIMITED SPECIAL OFFER $199.95 

Soon available tor other disc drives. 

HAPPY OWNERS 

Update your enhancement wilh Happy Version Arch- 
iver/Editor. Makes Happy drives compatible with the 
chip. 

$39.95 POST PAID 

Ali software tor the Atari DISCOUNTED 30<ii or MORE. 

Dlicounti on all Alarl compatible hardware. 

Send (or free brochure on any of Itie above or for details on our 

software discounts. 



SOUTHERN SOFTWARE 

A DIVISION OF SOUTHERN SUPPLY COMPANY 
1879 RUFFNER ROAD BIRMINGHAM, AL 35210 

24 HOUR PHONE 205-956-0986 
Order before 1 1 A.M. lor same day shipping. 



CIRCLE iM23 ON READER SERVICE CARD 



CIRCLE #124 ON READER SERVICE CARD 



ATAR1 1 30 XE - S1 79.95 

ATAR1 130 ST - $379.95 

ASTRA 1620 - $299.95 

ASTRA "BIG D" - i$549.95 

INDUS CT CALL 



MPP 1000E MODEM $79.95 

MPP MICROPRINT $39.95 

MPP 1150 $54.95 

UPRINT A16 (Inc 16K BUFFER). $79.95 

ENJOY STICK (best jOVStiCk) $14.95 

BASIC XL $49.95 

THE WRITER'S TOOL (w/ spelling)$69.95 

PAPERCLIP $57.95 

PRINT SHOP $34.95 

BOUNTY BOB STRIKES BACK. . . $29.95 

MICROLEACUE BASEBALL $29.95 

KENNEDY APPROACH $22.95 

CRUSADE IN EUROPE $22.95 

DECISION IN THE DESERT $22.95 

F-15 STRIKE EAGLE $19.95 

ULTIMA III $37.95 

ULTIMA III HINT BOOK $12.95 

ULTIMA IV (advance order) $39.95 

UNIVERSE $69.95 

UNIVERSE PRODUCT GUIDE $12.95 

RETURN OF HERACLES $24.95 

SEVEN CITIES OF COLD $29.95 

BOOK OF ADVENTURE GAMES. .$17.95 

Please add S2 50 shipping (S4.50 outside usai 
California residents add 6%. 



COMPUTER GAMES + 

Box 6144 

GRANGE CA 92667 

(714) 639-8189 
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grams that utilized GEM's built-in func- 
tions the next day. 

As the advertising agency for Apple 
Computer put it in an ad for the Mac- 
intosh, people don't want to read stacks 
of documentation in order to use a com- 
puter. The computer should be designed 
so that they can sit down in front of it 
and use it right away. That's what the 
Macintosh does. . .and so does the ST. 

'l"he ST isn't the only computer that 
will utilize GEM, either. GEM is already 
being implemented on IBM, Commo- 
dore and other computers. This, if any- 
tliing, is a positive sign for ST users. 
GEM is designed so that programs that 
run on one GEM-based machine can be 
easily ported to another machine with 
GEM. If a company writes a GEM ap- 
plication for the IBVI PC, it can quickly 
be converted to run on the Atari ST, and 
vice versa. 

You're going to hear GEM being com- 
pared to the Macintosh user interface 
very often, and with good reason. They 
are functionally very similar Both make 
it easy for the first-time computer user 
to operate complex software. Both are 
graphically oriented. Both use mice to 
point to user selections. But the ST, witli 
its GEM interface, costs much less than 
a comparably featm-ed Macintosli. In ad- 
dition, GEM operates in full color on the 
ST, an added dimension which I enjoy. 

Using the ST. 

The ST is designed for ease of use and 
(dare I say it?) user-friendliness. One 
feature most people will appreciate is 
that GEM itself is built into the ST, in 
192K of ROM (Read-only Memory). 

This may not mean much by itself, 
but (his will: when you turn on the ST, 
the GEVl "desktop" screen (Photo 5) ap- 
pears in about SVz seconds! Compare 
this to the approximately 9 seconds re- 
quired lo boot an 8-bit Atari computer 
into BASIC. When you're in a hurry to 
get computing, I think you'll appreciate 
the fact that the ST doesn't have to load 
192K of memory on power-up. 

As you can see in Photo 5, GEM will 
show us what devices are currently at- 
tached to our ST. On the right side of the 
screen, you can see file cabinet icons 
representing the two floppy disk drives. 
These have respective identities of A 
and B. Below them, in the lower right- 
hand corner, is the TRASH icon. This 
icon is used to dispose of unwanted 
items. 

Let's say we want to see wliat's on disk 
A. Using the mouse lo move the screen 



pointer, we merely point to the icon for 
disk A and click the mouse button twice. 
GEM opens a window to show us the 
contents of disk A (Photo 6). The files 
on tlie disk show up as icons, too. By 
pointing to the VIEW selection at the top 
of the screen (Photo 7), we can choose 
how we want to see the files — as icons 
or text — and can sort them by name, 
creation date, size or type. 



GEM does save this information, how- 
ever, so it's there if you ever want to use 
it. 




Photo 5. 




Photo 6. 



M fiiiB 




Photo 7. 

If we choose to show the items as text 
and sort them by name, as shown in 
I^hoto 8, we can see more information 
about the file tlian if we used the icon 
option. Eor example, you can see that the 
file MINCE. PRG uses 40960 bytes. The 
creation date and time weren't set when 
we saved the file, so they're not valid. 
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Photo 8. 

What if we want to see what's on disk 
B at the same time that we've got disk 
A open? No problem — we simply click 
twice while pointing to the disk B icon, 
and voila! GEM opens a window show- 
ing the contents of disk B, as you can 
see in Photo 9. 




Photo 9. 

GEM allows almost any manipulation 
of a window that you can think of. You 
can move them around on the screen, 
make them larger or smaller, and so on. 
If you make a window so small that not 
all of the files can be seen in it, you can 
use the side and bottom control strips 
on the window to "move" the files un- 
der the window. Up to four windows can 
be open in the GEM Desktop's current 
version . 

You can pick up icons and move them 
around on the GEM, using the mouse. 
If you don't like where GEM initially 
placed your DISK and TRASH icons, 
you can move them to a place of your 
choice. You can save the GEM Desktop 
— icons, windows and all — to tlisk at 
any time. 

To copy a file from disk A lo disk B, 
simply pick up the icon in the disk A 
window and move it to either the disk 
H Icon or the disk B window! To delete 
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a file or files, just select them with the 
mouse and drag the icon(s) to the trash 
can, where they'll disappear forever All 
operations involving copying or deleting 
of files will cause GEM to ask for con- 
firmation before the action is taken. 

GEM's flexibility allows you to com- 
bine several related files into a "folder" 
for easy mamipulation. These folders can 
then be called up as separate windows 
and treated as mini disk directories. 

I'm sure I haven't seen all the great 
things that GEVI can do — it's so flexi- 
ble that I'm finding new options just 
about every day. From what I've seen so 
far, GEM is a real jewel. 

First uses. 

When we received the development 
system, it included the 520ST computer, 
a i;i-inch RGB monitor a .'500K 3V2-inch 
l'lo|3py disk, a 1MB 3Vz-inch floppy disk, 
.3 diskettes, and around 4000 pages of 
documentation on GEM, CP/M 68K and 
other technical subjects. 

We had the machine hooked up and 
operating in record time, played aromid 
with the GEM Desktop for a while, then 
backed up the system diskettes. During 
this time, we explored the many capa- 
bilities of GEM and became fairly adept 
at file manipulations. 

A short set of instructions was includ- 
ed to help us compile and execute a G 
program called GLIPR. It demonstrates 
the use of GEM by a G program, plus an 
important graphics functions known as 
"clipping." The program was written in 
the CP/M 68K G language, an integer- 
only version of G, a widely-used software 
development language. We prepared our 
disks for the compile and, after a couple 
of false starts (write-protected disks!], 
had the program running. 

"Ah hah!" I said, "now I'm gomia try 
writing something myself!" I loaded the 
GEM Desktop and searched the disks for 
a text editor program. None were to be 
found. Disappointed that I had an ultra- 
fast machine in front of me begging to 
be programmed and had no editor, I be- 
gan to examine my options. 

Included in the ST software we re- 
ceived was KERMIT, a telecommunica- 
tions program which allowed file trans- 
fers between computers. Remembering 
that a version of KERMIT was available 
on CompuServe, I called the service and 
downloaded the Atari 800 version. A 
quick trip to Radio Shack for supplies, 
a little soldering, and I had an interface 
cable to connect my 800 to the ST. 

The KERMIT programs were started 



rgb_ince] = e; 

rgb_in[l] = o; 

rgb-inC2] = 8; 

index = 0; 

vs-color (handle, index, rgb_inj; 



Figure 1. 



up. and the computers were talking! [I 
must admit, I felt like Dr. Charles For- 
bin in Colossus: The Forbin Project, as 
he watched the American defense com- 
puter. Colossus, talking to the Russian 
defense computer. Guardian.) 

F'or the next few hours, I busily typed 
in some C code, following the rules set 
forth in the GEM Programmer's Guide 
for proper function calls. Using KER- 
MIT. the C source code was sent from 
the 800 to the ST at 9B00 baud. The ST 
was then used to compile and link the 
code into an executable 68000 file. The 
result? A colorful pie chart, shown on 
the title page of this article. Want to see 
how it was done? Read on! 

Easy as pie. 

I was truly surprised to find how easy 
the GEM fimction calls were to use. In- 
side the ST are hundreds of functions 
enabling one to draw shapes, text, pie 
charts, bar graphs and other graphics. 
Another set of fimctions allows use of 
windows, drop-down menus and icons. 

These functions may be called by the 
programmer through any language that 
has been set up to reference the GEM 
routines. In our development system. 
only C 68K and 68000 Assembly lan- 
guage can be used, though more lan- 
guages, such as BASIC, Logo and others 
will surely follow. 

Since my 68000 background is some- 
what limited. I chose to write my pie 
chart demonstration in C, which can be 
picked up by most programmers fairly 
quickly. For those of you not familiar 
with C, the Action! language popular- on 
Atari's 8-bit computers is similar to its 
structure. 

To start a GEVI application, you must 
open the application's "workstation." 
This is essentially the equivalent of ex- 
ecuting a GRAPHICS call on the Atari 
8-bit machines. It sets up basic para- 
meters used by GEM. like line type, col- 
or, fill type (solid, crosshatched, etc.), 
and so on. 

After the workstation is open, you're 
ready to start processing. For the pie 
chart graph, I set the background color 



to black. This is accomplished bj' setting 
the red, green and blue color levels for 
the background to 0. The ST has eight 
levels available for each color, for a to- 
tal color palette of 8*8*8 [or 512) colors. 
This "set color" command is executed 
with the G statements shown in Figure 
1. 

The rgb in array contains the levels 

of red (rgb in[0]), green (rgb in[l]) 

and blue (rgb in[2]). The variable "in- 
dex" tells which color register to set (in 
this case, register 0), or the background. 
The ST has sixteen color registers in its 
low-resolution mode (320 x 200 pixels), 
which is what the pie chart uses. 

The call to vs color tells GEM to ac- 
tually set the color. The "handle" vari- 
able used in the call is a unique identi- 
fier that's set when the screen is opened. 
It tells GEM that the color command is 
to be applied to the screen. 

The white background grid was cre- 
ated with a series of FOR-NEXT-type 
loops and the GEM hne-drawing func- 
tion. It's very easy to use and straight- 
forward. 

To draw the pie chart itself. 1 used the 
built-in "elliptical pie" commands of 
GEM. First the gray shadow was drawn, 
then the pie wedges themselves, in four 
different colors. 

The green segment, for example, ex- 
tends from 30 to 140 degrees, has its 
center at the screen coordinate 140X, 
13,'5Y, and is pai-t of an elliptical pie witli 
an X radius of 120 and a Y radius of 40. 
These parameters are passed to GEVI as 
shown in Figure 2. 

GEM takes care of drawing and fill- 
ing the entire pie segment for you, in 
whatever fill style you like (I chose to 
have it filled with a solid color). 

Note that the pie segment angle is 
passed to GEiVI in tenths of degrees for 
accuracy (e.g.. 30 degrees = 300 units 
i'or the pie chart call). Now. isn't that 
ea.sy to use? 

Finally, the chart was labeled with 
color-coordinated text. GEM's text dis- 
play function is quite flexible, enabling 
several text special effects, in any font 
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you like. To plot the "Business" label lor 
the green pie segment, I simply set the 
text color to green and plotted the text 
at the appropriate X and Y coordinate, 
as shown in Figure 3. 

In months to come, ANALOG Com- 
puting will be presenting Full program 
listings for the ST computers. I realize 
this information is sketchy, but I just 
wanted to give everyone a "feel" for the 
power that the GEM system provides. 
I'm really sold on the GEM interface. I 
feel it gives a new dimension to persond 
computers. The ease of programming for 
GEM insures that there will be a great 
deal of software available for the ST. 

My view of the ST. 

If properly marketed by Atari, the ST 
will be a major factor in the personal 
computer market for the next few years. 
The sheer power of the 68000 micro- 
processor, combined with the easy-lo- 
use GEM user interface and Atari's low 
price makes the ST a machine I can't 
pass up. People have asked me if the ST 



X r 140; 










y = 135; 










begang = 300; 










endang = 1400; 










xradius = 120; 










yradius = 48; 










v-ellpie(handle. 


X, y, xradius. 


yradius. 


begang. 


endang} ; 



Figure 2. 



X = 20; 
y = 47; 
w_gtextthandle, x, y, "Business"}; 



Figure 3. 



"really exists." It certainly does — and it 
works as advertised. 

Many readers have asked us if their 
old software will run on the ST. For ma- 
chine language bootable disks and cas- 
settes, the answer is no. The (iSOOO pro- 
cessor is completely different from the 



ATTENTION 
PROGRAMMERS! 



ANALOG Computing is interested in programs, articles, and software 
review submissions dealing with the Atari home computers. If you feel 
that you can write as well as you can program, then submit those arti- 
cles and reviews that have been floating around in your head, awaiting 
publication. This is your opportunity to share your knowledge with the 
growing family of Atari computer owners. 

All submissions for publication must be typed, upper and lower case 
with double spacing. Program listings should be provided in printed form, 
and on cassette or disk. By submitting articles to ANALOG Computing, 
authors acknowledge that such materials, upon acceptance for publica- 
tion, become the exclusive property of ANALOG Computing. If not ac- 
cepted for publication, articles and/or programs will remain the property 
of the author If submissions are to be returned, please supply a self- 
addressed, stamped envelope. All submissions of any kind must be ac- 
companied by the author's full address and telephone number 

Send programs to: 
Editor, ANALOG Computing 

P.O. Box 23, Worcester, MA 01603. 



8-bit 6502, and running 6,S02 programs 
on the ST is simply not possible with- 
out major rewriting. 

It will be possible — quite easy, in fact 
— to transfer files from an 8-bit machine 
to the ST. I did it with the KERMIT pro- 
gram when I wrote the pie chart demo. 
With slight modification, most BASIC 
programs that do not rely heavily on the 
8-bit machines' graphics abilities can be 
transported to the ST as soon as a BA- 
SIC language is available. 

You'll be able to connect the ST to i!X- 
isting bulletin board systems. Compu- 
Serve and ANALOG Computing's TCS, 
just as soon as a terminal package is re- 
leased. You can bet that these telecom- 
munications systems will set up SIGs 
(Special Interest Croups) for ST com- 
puter users, with dedicated ST programs 
and other files. 

What will the ST he capable of? Just 
about anything you want it to do. Graph- 
ics and CAD (Computer-Aided Design) 
programs, business applications, educa- 
tional software and, of course, games 
will be available soon. 1 don't see the ST 
as a game machine, since it wasn't de- 
signed with all the game graphics nice- 
ties (like player/missile graphics) of the 
earlier 8-bit machines. 

Games will certainly he possible, but 
I would rather see the ST become ac- 
cepted as the fantastic general-purpose 
graphics machine that it is. Atari's repu- 
tation In the past has been as a "game 
machine" company, and that's a pity. We 
all know liow jjowerful the Atari 8-bit 
machines are, but the world has dis- 
missed them as toys. 

Well, the world is about to find out 
just what an Atari computer can rccitlv 
do. L 
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by Jim Dunion 



Actually, I'm a bit embarrassed about writing this 
article. I had to sort of ease up to the keyboard side- 
ways to even get started. Why? Well you see, this ar- 
ticle is about programming style and how to develop 
a system of programming that will allow you to write 
programs more easily and quickly. Ah, there's the 
rub. . . because I have to admit that I have never, ever, 
over finished a program on time. Never. 

If there's any deadline in sight, I'll miss it. Out of 
sheer desperation these days, I invoke Dunion's Doo- 
dle Factor. Namely, I figure out exactly how long I 
think it will take to finish a program — then multi- 
ply by three. That way I usually only miss the dead- 
line by a couple of weeks or so. 



Now why is this? Bad luck, karma, the Gods of 
the Programming universe are against me? Maybe so. 
Late one evening (very late), I even wrote a poem to 
try to appease whichever spirit I was offending. 
WHY? Because the — 

Simple program wasn't 

Variables didn't 

Constants weren't 

Sufficient time was insufficient 

ROMs rammed 

RAMs rommed 

Debuggers had to be 

User protection didn't 

and the programmer did. 
I finally came to realize that, when it comes to 
programming, I'm my own worst enemy. 
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IT ADDS NEW 
UFE TO THE 



Peter Ellison 
R OM lyi aqazine 
"ec/JanrSS 




Rather than hearing our claims for ICD's 
SpartaDOS and US Doubler, we think you'd 
rather l<now what others say: 

"ICD has done something I didn't thinl< was 
possible... a product so revolutionary it adds 
new life to the Atari... SpartaDOS is the best 
I have ever used... (it changed) my Atari's 
whole concept of what a Disk Operating 
System should be. 

"Besides that, they created two chips (Ultra 
Speed Doubler) that will make your 1050 
disk drive store almost twice as much data 
on a single disk and run much faster" 

Thanks, Peter. What more can we say? 



Available through dealers or direct: 

the US Doubler only $69.95, including the 

SpartaDOS Construction Set! 

A hardware/software combination. Installation 
required; complete instructions provided. Add 
$4.00 for shipping. 



ICD, Inc. 

1220 Rock Street, Suite 310, Rockford, IL 61101-1437 

(815) 229-2999 



CIRCLE #122 ON READER SERVICE CARD 



O Programming continued 



Hey, don't get me wrong! I have some great ideas. 
But great ideas are easy; it's working programs that 
are tough. And I'm lazy — I like to read, drink beer, 
watch the Atlanta Braves on TV, converse with any- 
one around. These things, as you may have learned, 
don't make for good, timely programs. So what to 
do? Read on my children, and you shall see, of the 
midnight schemes of Jimmy D. 

Part 1 
The program skeleton. 

The first part of this scheme started evolving quite 
a while ago. Back in 1975, three friends and I started 
the third computer store in the country. The Com- 
puter System Center in Atlanta, Georgia. Today the 
remnants of that are known as Peachtree Software. 
Back then, all we had were the Altair 8800 and Mi- 
crosoft's first BASIC. I think it was Ron Roberts who 
really came up with the idea of a program skeleton 
first. 

We had started to develop our first series of busi- 
ness oriented software. Several of us were working 



on five or six programs that were always changing. 
Questions arose. How do we keep track of the cur- 
rent state of each program? How do we each take ad- 
vantage of the work one of the others is doing? How 
can we solve each problem we deal with once and 
once only? How can we make our system of program- 
ming evolve? 

Ah, now we were starting to ask the right ques- 
tions. Let's look at nature, at human beings. How has 
evolution worked? One key factor seems to be: once 
something works, stay with it! Build on it and reuse 
it. Look at the universality of the DNA code. Look 
at how every mammal is composed of cells that com- 
pose organs that compose systems that are organized 
aromid skeletons. Look at how each generation passes 
on to the next something of what they've learned. 
Do these ideas have any analogies in programming? 
You bet your bones! 

Back to BASIC for a minute. All our programs were 
written (originally] in Microsoft BASIC. A BASIC 

(continued on next page) 



WHITE HOUSE 
COMPUTER 



(717) 322-7700 

VISA and MC Accepted 4% 
HOURS: Monday - Friday 9 am ■ 6:00 pm 
P.O. Box 4025 Williamsport, PA 17701 



POLICY: NodepositonCODorders. FREE freightonallpre- 
paid cash orders over S300 in the continental USA. APO & 
FPO add $5 per hundred. For priority mail add S8 per 
hundred. PA residents add 6<)o sales tax. Defective products 
must have Prior RA number. Schools net 15. 



PRINTERS 

PANASONIC 

1090 187.00 

1091 257.00 

1092 389.00 

1093 585.00 

3151 455.00 

C.PTOH 

8510A 285.00 

8510 BCI 329.00 

8510 BC2 389.00 

8510 BP1 339.00 

8510SP 389.00 

8510 SR 429.00 

8510 SCP 459.00 

8510 SCR 477.00 

1550 BCD 485.00 

1550 P 445.00 

A10-20P 465.00 

F10-40P/S 875.00 

F10-55P/S 1059.00 

F10 Tractor 169.00 

F1 Sheet Feeder 349.00 

STAR MICRONICS 

SG10 217.00 

SG15 379.00 

SD10 345.00 

SD15 450.00 

SRIO 485.00 

SRI 5 585.00 

Powertype 309.00 

CITIZEN 

IVISP-10 325.00 

MSP-15 479.00 

MSP-20 469.00 

MSP-25 629.00 



ATARI HARDWARE 
COMPUTERS DISK DRIVES 

800 XL 99.95 Indus GT 215.00 

130 XE 145.95 1050 168.95 

130 ST 379.95 "Happy" 1050 349.00 

520 ST 749.95 

PRINTERS 

XTM 201 Non-Impact Dot Matrix 99.95 

XTC201 Color Non-Impact Matrix 109.95 

XDM 121 Daisy Wheel 209.95 

XMM 801 Dot Matrix Impact 1 69.95 

STC 504 Color/Non-lmpact 1 39.95 

STD 121 Daisy Wheel 21 9.95 

SMM 801 Dot Matrix/Impact 279.95 

MONITORS 

XC 141 14" Composite Color 199.95 

SM 1 24 1 2" Monochrome/High Res 1 35.95 

SC 1 224 1 2" RGB/Color 335.95 



PRINTERS (con't) 



ATARI 

1020 59.00 

1025 189.00 

1027 239.00 

MANNSEMAN TALLY 

Spirit 80 249.00 

tVIT 160L 495.00 

MT 180L 595.00 

OKI DATA 

182 219.95 

84 640.95 

92 349.95 

93 560.95 

Imagewriter 425.95 



EPSON 

RX80 219.00 

LX80 249.00 

FX80 389.00 

JX80 529.00 

RX100 369.00 

FXlOO 550.00 

LEGEND 

880 209.00 

1080 229.00 

1380 269.00 

1385 305.00 

PRINTER PAPER 

Lazor 1000 shts 15.95 

Lazor 2500 shts 29.95 



SOFTWARE 




BATTERIES INCLUDED 


81 80 Board 




99.95 


Bus Card 




24.95 


Paper Clip 




59.95 


Home Pack 




32.95 


BRODERBUND 


'ATARI" 


Print Shop 




29.95 


Graphics Library. . . 




18.95 


B.S. writer 




41.95 


Stealth 




21.95 


SYNAPSE 








34.95 


Syn Calc 




34.95 


Syn Trend 




27.95 


ATARI 






Proofreader 


.(D) 


19.95 


Codewriter 


.(D) 


42.95 


Filevtfriter 


.(D) 


24.95 


Reportwriter 


.(D) 


24.95 


Menuwriter 


.(D) 


24.95 


Home Integrator. . . 


.(D) 


23.95 


Small Business 






Inventory 


.(D) 


17.95 


Saleman's 






Expenses 


.(D) 


17.95 


A/R and A/P 


.(D) 


17.95 


Retail Invoice 


.(D) 


17.95 


The Learning 






Phone "... 


.(C) 


23.95 


Final Legacy 


.(C) 


19.95 


Track & Field 


.(C) 


25.95 


Galahad & Holy 






Grail 


.(D) 


17.95 


Adventure Writer. . . 


.(D) 


21.95 


Star Voyager 


.(D) 


17.95 



MONITORS 

ZENITH 

122 85.95 

123 75.95 

ZUM 122A 82.00 

AMDEK 

300 Green 119.00 

300 Amber 129.00 

310 Amber 145.00 

Color 300 235.00 

Color 500 345.00 

Color 600 399.00 

Color 700 469.00 

Color 710 539.00 

XTRON 
Comcolor 1 14" Composite S 

Separate Video 1 89.00 

TEKNIKA 
MJ-10 Composite & 

Separate Video 229.00 

MJ-22 R.G.G. Composite & 

Separate Video 285.00 

BIVIC 
Amber 82.95 

Green 79.95 

INTERFACES 

IVIPP 1150 54.95 

Micro Print 39.95 

850 (Atari) 108.95 

(Vlicro Stutter 64K Buffer . . . 99.95 
UPrint w/1 6K Buffer .... 79.95 
UPrint W/32K Buffer .... 99.95 
UPrint W/64K Buffer. . . 1 29.95 
IVIPP 1 152 Buffer Kit ... 19.75 
Microprint Economy Printer 

Interface 49.95 

Microram 64K Expansion 

for Atari 600 XL 89.00 
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program is essentially a series of commands. Each 
command had a line number, 0-32767. 

Brilliant Idea #1: Consider the range of line num- 
bers 0-32767 to be a skeleton (i.e., reserve certain of 
these numbers for the same functions in every pro- 
gram. Thus we had the essential program skeleton. 

Each of our programs now had a similar look. Com- 
ments were in the same line number ranges. Initiali- 
zations were always handled in the same line number 
ranges. Screen displays were in identical ranges. In- 
put and output routines were. . .1 think you get the 
idea. After we started laying our programs out like 
this, they all had a sense of familiarity to them. 

Any time I picked up a program, I knew, in gen- 
eral, where things were going to be. I had a map. 
Also, I didn't have to worry about program layout 
each time I began writing a program. To start, I'd just 
take the latest version of the program skeleton and 
begin putting flesh on the bones. Bang! Instant evo- 
lution. 

As we learned more about Microsoft BASIC and 



IBM 

Apple — C-64 
Software 



RENT Jll 
ATARI 



BUY 



Hint Book 

75 Adventures 

$19.95 



ATARI PROGRAMMING AIDS 

TRICKY TUTORIAL SERIES 

No. 1 DISPLAY LISTS $7.95 

No. 2 SCRPLLING $7.95 

No. 3 PAGE FLIPPING $7.95 

No. 4 ANIMATION $7,95 

No, 5 PLAYER MISSILE GR $7.95 

No. 6 SOUND/MUSIC $7.95 

No, 7 DISK UTILITIES $7,95 

No, 8 CHARACTER GR $7,95 

No, 9 GTIA GRAPHICS $7,95 

No, 10 SOUND EFFECTS $7,95 

No, 11 MEMORY MAP $7,95 

No, 12 SAM TUTORIAL $7,95 

No, 13 BASIC PROG TOOLS $7,95 

No. 14 ADVANCE PR TOOLS $7,95 

No, 15 FANCY FONTS $7,95 

EDUCATIONAL & UTILITIES 

MUSIC MAN $9,95 

INSTEDIT $7,95 

GRAPHICS MACHINE $7,95 

MINI WORD PROCESSOR $4,95 

BOB'S BUSINESS $4.95 

DATABASE DIALER $7,95 

FONETONE $4,95 

BOWLERS DATABASE $4,95 

GRADE BOOK , $4,95 

Call toll-free outside Texas: 1—800-433-2938 
- Inside Texas call: 817-292-7396 

WEDGWOOD RENTAL 

5316WoodwaY Drive 
FortWorth, Texas 76133 
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our own programming needs, our skeleton evolved. 
New programmers could pick up the skeleton and, 
using it, have the advantage of our hard-won wisdom 
almost immediately. 

So, when I started writing programs on the Atari 
in their version of BASIC, guess what my first task 
was? 

Part 2 
An Atari BASIC program skeleton. 

Let's get down to specifics — how to build into a 
BASIC language skeleton some of our knowledge 
about Atari BASIC. 

There's a fundamental law of computer science that 
states: if time and memory are not considered, then 
any computer can do anything that any other com- 
puter can do. So our Ataris are as powerful as the 
new Japanese fifth-generation computers, right? Yeah, 
sort of. 

Unfortunately, time and memory are usually of ut- 
most consequence. The task of programmers doing 
fairly large jobs is to cram more program into less 
space — and to have it rim faster. The tradeoffs be- 
tween time and memory come up again and again. 

For example, consider program documentation. I've 
always been of the "real programmers don't document 
their code" school. It slows me down, gets in the way 
of the creative process. What hogwash! I wish I had 
a dollar for every time I've said, "Hey, I don't need 
to document this. I can't forget what it does." Come 
next week, however. . . Out of desperation, I started 
lavishly commenting in my programs until I got an 
ERROR-2 (memory insufficient). 

Brilliant Idea #2: Develop a mechanism to make 
comments easily removable if program space becomes 
critical. Thus, my skeleton's first rule became: be- 
gin all subroutines on an even line number like 600, 
but begin the actual executable code at 605. Lines 
600-604 are reserved for comments. 

When I call the routine, I use a GOSUB 605 state- 
ment. That way, if space becomes critical, I can take 
out the comments (delete Lines 600-604), and the 
program itself will be unaffected. 

Since I'm lazy, I actually wrote a program that will 
go through and strip off the comments, creating two 
files: a program file and a comment file. Here's the 
subroutine at 600 in my skeleton. 

600 REM «•« DELAY »»» THIS IS A 

601 REM GENERAL DELAY SUBROUTINE 

602 REM CALLED WITH ONE PARAMETER 

603 REM PAUSE = AMOUNT OF DELAY 

604 REM 

605 FOR DELAY=ZO TO PAUSE:NEKT DELAYlR 
ETURN 
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"What's that ZO?" I hope you're asking. Hold on, 
we'll get there next. 

One clammy day, while trying to wring a few bytes 
from a program, I ran Lane Winner's XREF, to see 
how many times I used each variable and constant. 
I found a lot of numbers like 0,1,2,3,4,5,6,7,8,9,10,16, 
128,256 over and over. 

Question: how many bytes does it take to repre- 
sent each numeric constant in a program? Answer: 
7. But if I define a variable called ZO = 0, how many 
bytes would it take to represent the same value in 
a program? Answer: l! 

Brilliant Idea #3: Why not represent all the numer- 
ic constants used a lot as variables Z0,Zl,Z2, and so 
forth? Look at Line 32005 of the skeleton; 

32005 RESTORE 32ee5:READ ZO, Zl, Z2, Z3, Z 
4,Z5,Z6,Z7,Z8,Z9,Z10,Z11,Z12,Z13,Z14,Z 
15,Z16,Z255,Z256 



32600 REM *** DflTfl IMITIflLIZflTION »»» 

32601 REM THESE ARE IHITIAL DATA 

32602 REM VALUES USED IH SETTING UP 

32603 REM FOR PROGRAM EXECUTION 

32604 REM 

32605 DATA 0,1,2,3,4,5,6,7,8,3,10,11,1 
2,13,14,15,16,255,256 

You won't believe how much memory that saves 
in a program. It also saves by defining these system 
constants via a READ statement, rather than Z0 = 0: 
Zl =1, and so forth. 

So why did I put those statements in the 32000 
range? Question: when BASIC executes a GOTO or 
a GOSUB statement, how does it find out where to 
really go to? Answer: it looks through the program 
from the begimiing, line by line, imtil it finds tlie one 
it's looking for. 

Brilliant Idea #4: Put all those statements needed 
once or very seldom at the end of the program, with 
the frequently used ones at the very beginning of the 
program. 

Okay, I admit I fudged a little there. I reserve Lines 
0-9 for comments about each particular program. 
Line 10 is then GOTO 32005. I reserve 11-999 for 
general skeleton routines. The program itself starts 
at Line 1000 (heh, heh, heh; actually 1005). Why 
don't I just show you the overall skeleton? 

Overall BASIC Program Skeleton. 

Line Function Range 

0-9 Overall program comments. 

10 GOTO initiahzation. 

130-599 Keyboard input routines. 



600-605 

1000-1999 

2000-9999 

10000-10999 

11000-15999 

16000-16999 

17000-19999 

20000-29999 

30000-31999 

32000-32767 



General delay routine. 
Main program body. 
Program subroutines. 
Program specific data. 
Graphic subroutines. 
Joystick cursor and 
player/missile subroutines. 
Disk input/output routines. 
Sound effects routines. 
Opening screen display 
and special effects. 
Initialization. 



There are other routines that come and go, but 
these are the ones that have hung around from pro- 
gram to program. 

Part 3 
The link to machine language. 

Many times I've found myself involved in an ar- 
gument about which is the best language to program 
in. BASIC, FORTRAN, ALGO, APL, LISP, LOGO, 

(continued on next page] 



PARTS/SERVICE FOR ATARI* COMPUTERS 

FLAT SERVICE RATES BELOW INCLUDE 
PARTS AND LABOR, 60-DAY WARRANTY 



800 Compuler Repair ... 
400 Computer Repair , . . 
600XL Computer Repair , , 
t200XL Computer Repair 



. $65.00 
. $47.50 
.$65.00 
$65.00 



INTEGRATED CIRCUITS 

GTIAChip , ,0014805 

upgrade with inslruclions $11.50 

lOK Rev B OS Upgrade lor 400/800 
3-Chip ROM set wjlti instructions $12.50 

Pokey Chip C012294 S8.50 

Anlic Chip C012296 S10,50 

PIA Chip . . ,C014795 $11.00 

Basic ROM sel $15.00 

CPU Chip. . .C014806 $12.50 

MODULES/CIRCUIT 

BOARDS., .complete with IC's 

16K RAM Memory Module. , 

CX853 $18.50 

800 10K Rev, B OS Module . $18.50 



810 Disk Drive Repair $79.50 

800XL Compuler Repair $6750 

850 Interface Repair $60.00 

1050 Disk Drive Repair S85.O0 

REPLACEMENT/BACKUP 
BOARD SETS. 



800 OK 

800 48K 

400 OK . . 

810 Boarc] Set . 

Ail Boards compiele with ICs. etc. 

Keyboards not Inciuded. 



S6950 
S12250 
S52 50 
$9950 



MISC. 



800/400 CPU Board with GTIA 


$22-50 


800 Main Board 


- $28-50 


400 Itflain Board 


$26.50 


400 Main Board w/o iCs 


$850 


800 Power Suppiy Board 


$1050 


810 Data Separator Board 




upgrade witli instructions 


$25.00 


810 Side Board w/o Sep. a 1771 


. $43.50 


810 Rear Power Board 


$25.00 


810 Analog Board 


. $16.00 



810 Rear Board/Analog Board Upgrade 
with 10-pin jumper 

and instructions 339.50 

Editor Assembler $25.00 

BASIC Cartridge . 

w/o Case. Manual $23 50 

810 Custom Disc Drive S149.50 

400 Compuler Complete S39.50 

Replacement 810 Drive Mech. . . . $75.00 
Replacement Power Transformer $16.50 

SAMS Service Manual 

for 800 or 400 $19.95 ea. 

800 Keyboard Repair $35.00 

850 Interface $13500 

De Re Atari $12.50 

AMERICAN TV 

415-352-3787 

Mail Order and Repair 15338 Inverness St., San Leandro, CA 94579 

Retail Store 1988 Washington Avenue, San Leandro. CA 94577 

Terms: We accept money orders, personal checks or C.O.D.s VISA, MasterCard okay on orders 
over $25.00. No personal cliecks on CO.D. 

Shipping: $4.00 shipping and handling on orders under $150.00. Add $2.00 for CO.D. orders. Cali- 
fornia residents include 6'/iVo sales tax. Overseas shipping enlra. 

Prices subject to change without notice. We reserve the right to limit quantities. Sales limited to 
stock on hand. Above units repaired or exchanged with rebuildable exctiange. Include $7.00 return 
shipping and insurance. 

Foreign shipping extra. 
Much more! Send SASE for free price list. 

Repair/upgrade services available Call. 'Atari is a registered trademark of Atari Corp. 
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PROLOG, SMALLTALK, Assembly— personally, I 
hate 'em all. To the horror of many of my learned 
computer science colleagues, I still write mostly in 
a hybrid of BASIC with machine language subrou- 
tines. 

Why BASIC? Because it's there, it's easy, and I'm 
lazy. There are, indeed, some problems with BASIC, 
particularly if you're doing graphics, special effects 
or anything that has to work in real time. BASIC is 
slow. I mean sJooooom'. 

Brilliant Idea #5: Every time I need a particular 
function to work in real time, I program it in assem- 
bly language and link it to my BASIC skeleton. Af- 
ter all, with the USR function, we can call a machine 
language routine anywhere in memory. 

So I'll simply start evolving a package of machine 
language routines that I call from BASIC — routines 
to draw boxes on the screen, move player/missiles, 
etc. Great idea. Except, of course, for the fact that 
every time I reassemble the machine language pack- 
age, the absolute locations of the routines change. 



ELECTRONIC ONE 



ATARI COMPUTER HARDWARE 

ATARI 800XL 98.00 

ATARI 130XE 138.00 

1010 RECORDER 39.99 

850 INTERFACE 98.00 

DISK DRIVES 

ATARI 1050 148.00 

INDUS G.T 218.00 

CENTURIAN810 148.00 

PRINTERS 

GEMINI SGIO 239.99 

STAB POWER TYPE 299.99 

EPSON RX80 229.99 

EPSON RX80FT 279.99 

ffSONFXBO 389.99 

INTERFACE CABLES 

APE FACE 49.99 

U-PRINT 49.99 

MPP1150 49.99 

U-PRINT 16K PRINT 

BUFFET 79.99 

ATARI COMPUTER HARDWARE 

1027PRINTER 228.00 

1025 PRINTER 148.00 

1030 MODEM 69.99 

TOUCH TABLET 42.99 

KDALA PAD 34.99 

MPP lOOOE MODEM 74.99 

ATARI LAB STARTER KIT ... 44.99 

AMDEC 300 COLOR 228.00 

COMMODORE 1702 208.00 

ATARI KEY PAD 24.99 

COMPUSERVE STARTER KIT 21.99 

SPECIAL 

ATARI 1020 COLOR 

PRINTER PLOTTER 

39.77 



A. 

ATARI 

ELECTRONIC 
ONE 



THE 
LOWEST 
PRICES 

THE 

BEST 

SERVICE 



CALL 

(614)864-9994 

P.O. Sox 13428 • Columbus, Oh. 43213 

THE LOWEST PRICES 

ATARI ATARI COLECOVISION 
2600 5200 INTELLIVISION 
GAMES GAMES ATARI SOFT. 



ATARI COMPUTER SOFTWARE 


ATARI WRITER 


. . . 29.99 


TOUCH TYPING 


9 99 


LOGO 


. . . 59.99 


CONV. LANGUAGE 


. 19.99 


SYNFILE 


35 99 


SYN CALC 


, . . 35.99 


SYN TREND 


25 99 


PAC MAN 


. . . 7.99 


STAR RAIDERS 


7.99 


ASSEMBLE EDITOR . 


. . . 24.99 


MILLIPEDE 


14.99 


MOON PATROL 


14.99 


GHOSTBUSTER 


19.99 


TRACK & FIELD 


21 99 


FLIGHT SIMULATOR 


, 34.99 


BASIC CARTRIDGE ... 


. . 7.99 



CALL OR WRITE FOR THE 
PRICE OF YOUR PROGRAM. 






HOW TO ORDER: CASHIER CHECK. MONEY ORDER, MASTERCARD" or 
VISA* (Add 4% (or charge cards) ... NO PERSONAL CHECKS ... NO 
CO.D.'s . . . SHIPPED UPS. PRICES SUBJECT TO CHANGE. 
SHIPPING: Prompt one day shipping on in-stock merchandise. Ohio resi- 
dents add 5.5% sales tax. Add $3.00 on all orders under $100.00 . . . Add 
$5.00 on all orders over $100.00. 
NTERNATIONAL: Add 15% to all orders. 

CALL OR WRITE FOR FREE CATALOG 

ELECTRONIC ONE* r6l4J864-9994 

P.O. Box 13428 • Columbus, Ohio 43213 
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and I have to change the values in the USR calls to 
match. Can't we figure out a way around this? 

Brilliant Idea #6: What I'll do is build my machine 
language package as a series of logical subroutines 
whose order never changes. For instance, machine 
language routine #0 is DISKIO, which handles disk 
input and output; machine language routine #12 
draws a box on the screen, and so on. 

Next, I write one routine in assembly language 

called LINK. It's job is to know where every other 

routine is actually located. Then, for instance, from 

BASIC to draw a box, I would write: 

A3USR CLIHK , Z12 , KPOSITIOH , VPOSITION , X5I 
ZE,Y5IZE,B0KC0L0R3 

where XPOSITION, YPOSITION, XSIZE, YSIZE, and 
BOXCOLOR are the specifics of where, how big and 
what color to draw the box. Z12 tells LINK which 
logical routine I want it to execute. LINK is the lo- 
cation of the machine language package — and this 
is the only value I would need to change, no matter 
how much I diddled around with the assembJj' lan- 
guage code. 



) THIS 
I FROU 

LINK 



ROUTINE IS THE LINK 
BflSIC PROSRftMS 



JMPTAB 

*0 



SETROU 



I SET » OF PARAMS IN X 
iLOaiCAL « OF SUBROUTINE 
IS BITS ONLY 



I-l FDR SUBROUTINE « 
IIP NO PARAMETERS 



I 

JMPTAB 
PARTfiB 
I 
SUBTAB 



PLft 
TAX 
PLft 
PLA 
STft 
LDY 
DEX 
8EQ 
PLfl 
STA 
INY 
PLA 
STft 
INY 
BNE 



LDfi JMPTftB I BET • OF ROUTINE 

ASL ft (DOUBLE 

TAY lUSE THIS ftS INDEX 

LDA SUBTftB.Y I SET ROUTINE ADDRESS 

STft aHPTAB 

LDft SUBTABtl.Y 

STft JHPTflB+l 

JMP (JNPTflB) 

.DS 2 
.08 20 

.WORD DISKIO, SBORD.CUROFF.REVERS 
.WORD PMINIT.CRHftIR, CROSS 



PARTAB.Y ITD PftRftMETER TftBLE 

PflRTAB.Y lEftCH PftRAM IS lA BITS 
LNKTST l»» ftLWftYS TRUE 



Each routine I would call knows how many para- 
meters are needed and in what order they'll be in 
the parameter table. Pretty simple, all in all. I Hke 
that. Solve it once and then forget about it. 

Part 4 
The machine language package in memory. 
Still, there was the problem of how to get the ma- 
chine language package in memory in the first place. 
And frankly, I even got tired of going in and chang- 
ing the LINK value. 

Question: is there a way I could let the computer 
do this for me? Answer: ever hear of a file called 
AUTORUN.SYS? Boy you mean all I have to do is 
rename my machine package AUTORUN.SYS, and 
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DOS will automatically load it for me at power-up 
time? Golly, while I'm doing that, why don't I reserve 
two bytes in page 6 where I'll place the current val- 
ue of LINK? In the assembly language package there 
are a couple of statements like: 



MftCHLa 

I 



»»69Z 



.ORB MACHLO 
.HORD LINK 




Then in the BASIC skeleton initialization code, I say: 
32238 LINK=PEEK C1682) +Z256»PEEK C1683} 

Bingof Now I can change either the BASIC skele- 
ton or the machine language package relatively in- 
dependently. Who says southern boys are dumb? Slow 
and lazy, maybe; dumb, no. D 

Jim Dunion has VA'orked with computers in a vari- 
ety of ways: retailing, writing, using micros in ener- 
gy education exhibits, lecturing on the 800, research- 
ing at Atari in Alan Kay's group, and spending near- 
ly a year at Esalen Institute. He's now working with 
the Pacific Science Center in Seattle. 



/^>v 



RASCAL 

For the Atari 

kyan pascal is the most complete package available for learn- 
ing and using the Pascal language. And now, it's available for 
the Atari family of computers. 

kyan pascal is easy to use, lightning fast, and loaded with fea- 
tures. It's a full Pascal implementation and perfect for both be- 
ginning and advanced programmers. 

kyan pascal features: 

• Optimized Machine Code Compiler; 

• Built-in Full Screen Text Editor; 

• String-Handling, Chaining, Include File, and Other 
Powerful Extensions; 

• 13-Digit Arithmetic Precision and Full Graphics 
Support; 

• Built-in Assembler (Allows Full Hardware Control); and, 

• Tutorial Manual with Sample Programs. 

kyan pascal requires 48K of memory and a single disk drive. 
No additional hardware is necessary And, it comes with kyan's 
MONEY BACK GUARANTEE ... If not completely satisfied, 
return It within 15 days for a full refund. 
kyan pascal for tfie Atari S69.95 

(Add $4 50/copy tor handling. S12 00 oulside North America. California 
residents add S4 55/copy tor sales tax) 

Send Check/Money Order to: kyan software, Dept. M 
CaH; (415) 775-2923 WS fl 1850 Union St., Ste. 183 

MC/Visa Accepted — H^ San Francisco, CA 94123 




RTRRI 
SOfTWflRe 

pRorecTiOH 
recHMioues 



i^ixiGE mowusota. 



AIMIVCED 

RTMI 

PROTECTION 

TKHNIQUes 



GEORGE nonniscn' 



THE BOOK I 



THE BOOK II 



BOOK I + DISK: (The Origlnai] Thoroughly explains the techniques used by advanced 
software pirates, and the copy protection methods used 10 stop Ihetn. Il offers clear and 
understandable explanations sophisticated enough lor software writers o( any scale yet 
easy enough for a beginne; just wanting to learn more about Atari-" compulers. A MUST 
READ FOR ALL ATARI^ OWNERS. 

>^ BOOK f INCLUDES: • Duplicate sectoring • Custom dist( lormalting • Creating "BAD" 
sectors • Hardware data keys • Legal protection like copyrights, trade secrets, patents 

• Protecting BASIC programs • Sell-modifving Code • ROM * EPROM cartridges 

• Hidden serial numbers •Sell-deslruciing programs 'Freeware* Misassigned sector ing 

• Much, much more. 

DISK t INCLUDES: • Directory mover • VTOG scanner • Duplicate sector linder • Sector mover • Bad sector writer • 
Sector data displayer • Auiorun builder • Other useful programs. 

This comprehensive book and disk package should not be confused with low quality imitations ollered elsewhere. 
BOOK II + DISK II: Advanced Software Protection. This all new sequel starts where the highly acclaimed Book I 
leaves off. Book II is Ihe most up-to-date resource available lor the Atari* owner. Includes reviews and explanations 
of products such as: The Happy Enhancement ', The Impossible ', The Scanalyzer ', The Chip '. The Pill ' and Super Pill 
& many others, 

BOOK II: Tells you specifically what they copy, what they won't, howlhey are used, and the details ol how Ihey work. 
BookM also includes such topics as: • Transmitting protected programs 'Copying disks with more than 19 sectors/track 
• Dalaencryplion'Phreaking methods' Program worms ■ Logic bombs • Bank-select cartridges* Random access 
codes • New trends in software law • Sample BASIC + Assembler programs • On-line security • And much more. 
DISK II INCLUDES: • Automatic program protector • Custom formal detector • Newest protection demos • Forced 
password appender • Data encrypler • And much more. 
OFFICIAL RELEASE DATE: APRIL 30— ORDER NOW TO RESERVE YOUR COPY 

Book + Disk Packages only $24.95 eachorSpeclalOfler both lor only $39.95 
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SAUB 



^'^(.e 



80 CPS PRINTER 

'^ Smith Corona 

• Commodore 64 • Atari • Apple * More 

11" Carriage • Friction/Tractor • Graphics 



% 



\*'. 



ONE YEAR 
IMMEDIATE 
REPLACEMENT 
WARRANTY 





Tractor Feed 
Included FREE! 



Ill SMITH 
li CORONIV 




SPECIFICATIONS: 

Size/Weight: Height 4" Width 16.5" Depth 9" 

Weight 8.2 lbs. 
Electrical Needs: 120V/60Hz 
Internal Char. Coding: ASCIUISO 
Print Buffer Size: 132 Bytes (1 line) 
No. of Char, in Char. Set 96 ASCIIS 

International 
Graphics Capability: Standard 60. 72 Dots Per 

Inch Horizontal. 72 Dots Per Inch Vertical 
Pitch: 10, 12, 16.7, 5, 6, 8.3 
Printing Method: Impact Dot Matrix 



Char. Matrix Size: (Standard) 9H x 8V, 
(Elongate) ION x 8V 

Printing Features: Bi-directional, Short line 

seeking 
Printing Speed: 80 CPS 



PAPER 

Type: Plain 

Forms Type: Fanfold, Cut Sheet 
Max Paper Width: 1 1" 
Feeding Method: Friction Feed Std. 
Feed Included 



Tractor 



RIBBON 

Type: Cassette — Fabric inked ribbon 
Life: 1 million characters 

CHARACTER MODE 

Character Font: 9x8 Standard, 10x8 Elongated, 

No. 8 pin to be used for underline 
Character Set: 96 ASCII, 11x7 International Char. 
Pin Graph Mode: The incoming bit pattern 

corresponds to the 8 pins in the print head 
Resolution: Horizontal: 60, 72 dots/inch. Vertical: 

72 dots/inch 



PARALLEL INTERFACES 

Commodore 64 - $39.00 Apple II, He, II + - $59.00 



Atari — $59.00 



Add $10.00 for shipping, handling and insurance. Illinois residents 
please add 6% tax. Add $20.00 for CANADA, PUERTO RICO, HAWAII, 
ALASKA, APO-FPO orders. Canadian orders must be in U.S. dollars. 
WE DO NOT EXPORT TO OTHER COUNTRIES, EXCEPT CANADA. 
Enclose Cashiers Check, Money Order or Personal Check. Allow 14 
days for delivery, 2 to 7 days for phone orders, 1 day express mail ! 



VISA- 



MASTER CARD — COD. 

No C.O.D. to Canada, APO-FPO. 



We Love Our Customers 

22292 N. Pepper Rd., Barrington, Illinois 60010 

312/382-5244 to order 
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■I 88K Lowest Price In The USA! i52k 

ATARI Computer System Sale 



• Students • Word Processing • Home • Business 




$449 

LOOK AT ALL YOU GET FOR ONLY *r M M ^W 

SYSTEM PRICE 

Atari 800XL 88K Computer 

Atari 1050 127K Disk Drive 

Atari 1027 letter Quality 20 CPS Printer 

Atari Writt Word Processer 

Atari BASIC Tutorial Manual 



LIST PRICE 

$179.00 

299.00 

299.00 

59.95 

16.95 



INDIVIDUAL 
SALE PRICE 

$109°° 
13900 

19900 

39" 
12" 



All connecting cables & T.V. interface included. 
Monitors sold separetly. 



TOTALS 



$852.90 $549.90 



SAVE $100 

All 5 ONLY 
$4^900 

SYSTEM 
SALE PRICE 



152K SYSTEM 



Other Accessories List Sale 

12" Hi Resolution Green or Amber Screen Monitor $199.00 99.00 

13" Hi Resolution Color Monitor $399.00 195.00 

* ATARI! 30XE 152K Computer $249.00 159.00 



Add $9.95 for 

Connection Cables 

(Monitors Only) 

Add $10 for UPS 



IS DAY FREE TRIAL. We give you 15 days to try out this ATARI COMPUTER SYSTEM! ! If it doesn't meet your expectations, just send it back to us prepaid 
and we will refund your purchase price! ! 90 DAY IMMEDIATE REPLACEMENT WARRANTY. If any of the ATARI COMPUTER SYSTEM equipment or 
programs fail due to faulty workmanship or material within 90 days of purchase we will replace it IMMEDIATELY with no service charge! ! 



Best Prices * Over 1000 Programs and 500 Accessories Available * Best Service 
• One Day Express Mail * Programming Knowledge * Technical Support 



Add $25.00 for shipping and handling!! 

Enclose Cashiers Check, Money Order or Personal Check. Allow I 4 
days for delivery. 2 to 7 days for phone orders. 1 day express mail ! 
We accept Visa and MobierCard. We ship C.O.D. to continental 
U.S. addresses only. Add $10 more if C.O.D. 



COMPUTER DIRECT 

We Love Our Customers 

22292 N. Pepper Rd., Barrington, III. 60010 

312/382-5050 to order 



FANTASTIC COMPUTER PRINTER SALE!!! 



10X COMSTAR 

HIOH SPEED 

Tractor Friction Printer 
130-150 CPS 
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List $499 



iKiiiiiinniiiiB 



1572" 150-170 CPS Printer %ZW 



• Lowest Sale Price. Premium Quality, Tractor/Friction Printer in the U.S.A. (Best Value) 

• Highspeed 130-150 Characters Per Second • 40. 46. 66. 80. 96. 132 line spacing 

• Word Processing. Letters • Business Forms • Labels. Graphics. Tables • List Programs 

• Fantastic Graphics * Print Modem Data • The Most Important Accessory For Your Computer 



Premium Quality 

130-150 CPS lOX COMSTAR 

High Speed Printer $199 

10" carriage, 2K buffer, prints 
8^4"xll" standard single sheet or 
continuous feed paper. Bi-directional, 
impact, dot matrix, 130-150 CPS, 9x9 
dot matrix with double strilie 
capability for 18 x 18 dot matrix {near 
letter quality), high resolution bit 
image, underlining, downloadable 
characters, true lower descenders 
with super and subscripts, prints 
standard, blocli graphics, and special 
characters. It gives you print quality 
and features found on printers costing 
twice as much!! (Centronics Parallel 
Interface) (Better than Epson FX80 
and Gemini lOx). 
List $499.00. Sale $199.00. 

Premium Quality 150-170 CPS 

151/2X COM STAR Business 

Super High Speed Printer $319.00 

Has all the features of the lOX COM- 
STAR PRINTER plus 151^" carriage 
and more powerful electronics 
components to handle large ledger 
business forms! (Better than Epson 
FX 100 & Delta 15). 
List $599. SalelfSig.OO. 



■JUKI* 

12" DAISY WHEEL 

PRIKTER $199.00 

"JUKI" Superb letter quality daisy 
wheel printer, 12" extra large 
carriage, up to 12CPS bi-directional 
printing, drop-in cassette ribbon, (90 
day warranty) Centronics parallel or 
RS232 serial port built in! (Specify). 
Limited Quantities. 
List $299.00. Sale $199.00. 



■JUKI' 

Printer/Typewriter 
Combination $249.00 

"JUKI" Superb letter quality, daisy 
wheel p r i n t e r / t y p e w r i t e r 

combination. Two machines in one — 
just a flick of the switch. 12" extra 
large carriage, typewriter keyboard, 
automatic margin control and relocate 
key, drop in cassette ribbon! (90 day 
warranty) Centronics parallel or 
RS232 serial port built in (Specify). 
List $349.00. Sale $249.00. 



OOlympia 



Executive Letter Quality $339.00 
15" Daisy Wheel Printer 

This is the world's finest daisy wheel 
printer. Fantastic letter quality, up to 
20 CPS bi-directional, will handle 14.4" 
forms width! Has a 256 character print 
buffer, special print enhancements, 
built in tractor-feed (Centronics 
Parallel and RS232C Interface) (90 
day warranty). 
List $649.00. Sale $339.00 



OOlympia 



Printer/Typewriter Combination $439.00 

Better than IBM Selectric. Superb 
computer printer combined with the 
world's finest electronic typewriter. 
Two machines in one, just flick the 
switch for up to 20 CPS printing (300 
Words per minute) on a 15" carriage 
that handles up to 14 1/8" in. paper. 
Drop in cassette ribbon — express lift 
off correction, Centronics parallel 
interface (90 day warranty). 
List $749.00. Sale $439.00. 



15 Day Free Trial — 7 Year Immediate Replacement Warranty 



PARALLEL INTERFACES 



For VIC-20 and COM-64 — $59.00. Apple — $59.00. Atari — $59.00. 



Add $14.50 for shipping, handling and insurance. Illinois residents 
please add 6% lax. Add S29.00 for CANADA, PUERTO RICO, HAWAII, 
ALASKA. APO-FPO orders. Canadian orders must be in U.S. dollars. 
WE DO NOT EXPORT TO OTHER COUNTRIES. EXCEPT CANADA. 
Enclose Cashiers Check, Money Order or Personal Check. Allow 14 
days delivery. 2 to 7 days for phone orders. 1 day express mail I 
VISA — MASTERCARD — C.O.D. No C.O.D. to Canada or APO-FPO 



We Love Our Customers 

22292 N. Pepper Rd., Barrington, Illinois 60010 

312/382-5244 to order 
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COLOR MONITOR 
M S ALE!! ! 



1 



(Premium Qualify) 

• Built in Speaker and 
Audio 

• Front Panel Controls 

• For Video Recorders 

• For Small Business 
Computers 

• Apple - Commodore - 
Atari - Franklin - etc. 



Add SU 50 ^liipping, handling and insurance. 
Illinoib residents please add 6''o tax. We do 
not ship to foreign countries (including 
Conoda) Alaska Puerto R.co AFO-FPO. 

Enclose Cashiers Check Money Order or 
Personal Check. Allow 14 days for delivery, 2 
to 7 days lor phone orders I day express 
moiM 





(Premium Qualify) 

* Beautiful Color 
Contrast 

* High Resolution 

* Separated Video 

* Sharp Clear Text 

* Anti-Glare Screen 

* 40 Columns x 24 Lines 

* Supports 80 Columns 

List $399°° 

SALE SI 79°°** 

13" Color Computer Monitor ^^■-"= -^^'^ 

*' with $19.95 Software Purchase 

without Software Purchase $189.00 

'Connecting cable $9.95 

75 Day Free Trial - 90 Day Immediate Replacement Warranty 



SALE $179 



oo* 



oo 



14" COMMODORE 1702 COLOR MONITOR 

List $299°° 

12" XTRON SUPER HI-RESOLUTION MONITOR 

80 Columns X 24 Lines, Super Hi-Resolution 1000 lines List ^249°° 
Green or Amber Super-Clear "Easy to Read" text with 
special anti-glare screen! 

12" jS^il^ HI-RESOLUTION GREEN OR AMBER TEXT DISPLAY MONITOR 

80 Columns X 24 Lines, Hi-Resolution, crisp clear easy List^l99°° SALE *99°°* 

to read text with anti-glare screen ! A MUST for word 



SALE ni9 



processmg. 



12" MONITOR GREEN OR AMBER TEXT 

80 Columns x 24 Lines, easy to read up front controls List 



159 



00 



SALE *79'= 

* Connecting coble $9.95 



• LOWEST PRICES • 15 DAY FREE TRIAL • 90 DAY FREE REPLACEMENT WARRANTY 
BEST SERVICE IN U.S.A.* ONE DAY EXPRESS MAIL • OVER 500 PROGRAMS • FREE CATALOGS 



Add 510,00 for shipping, handling and insurance. Illinois residents 
please add 6% tax. Add S20.00 for CANADA, PUERTO RICO, HAWAII, 
ALASKA, APO-FPO orders, Canadian orders must be in U,5, dollars. 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA. 
Enclose Cashiers Check, Money Order or Personal Check, Allow 14 
days for delivery, 2 to 7 days for phone orders, I day express mail I 
VISA - MASTER CARD - C,0,D. No C,0,D. to Canoda, APO-FPO 



We Love Our Customers 

22292 N. Pepper Rd., Barrington, Illinois 60010 

312/382-5244 to order 



WAR IN RUSSIA 
STRATEGIC SIMULATIONS, INC. 
883 Steirlin Road, BIdg. A-200 
Mountain View, CA 94043 
40K Disk $79.95 

by Bob Curtin 

A while back I proclaimed, with my 
usual arrogance, that war games which 
feature high-res gameboard graphics of- 
ten suffer from terminal simplicity. (My 
mother swears I stated, with the same 
impertinence, that kids don't develop a 
personality until they're at least three 
years old.) Times change. VVe grow. 

War in Russia not only sports a high 
resolution, full color and a scrolling 
map, but is also one of those games I 
could only dreaiu about ten years back, 
when computer war games took the form 
of the tank game in the then-new Atari 
2600. 

WIR is based on Operation Barbaros- 
sa, the German invasion of the Soviet 
Union in June of 1941, and includes sce- 
narios which cover the battles of Stalin- 
grad and Kursk. The three scenarios 
have a long and short version, which, in 
essence, gives you six games in the box. 
More than that, WIR can be played sol- 
itaire, or you may oppose another hu- 
man. There are also fom- difficulty levels 
in the single mode, which add still more 
flexibility to the game. 

Editor permitting, I'd like to give you 
some background information, simply to 
help you grasp the scope of War in Rus- 
sia. Back in 1972, I bought a game enti- 
tled War in the East, published by a 
since-belly-up company called Simula- 
tions Publications, Inc. As you've no 
doubt guessed, the game was a simula- 
tion of Operation Barbarossa. 

What's interesting is that War in the 
East was also a divisional level game, 
but it was played on a 4x5 foot game 
board and involved thousands of play- 
ing pieces. A typical game lasted 60 to 
80 hours. Assimilating the rules was no 
picnic, either. The second edition oi' the 
game offered a 36-page rule book, as 
well as another, slightly smaller "system 
rule book." 



War in the East could be combined 
with its sister game, War in the West, to 

create a behemoth of a game that cov- 
ered the entire European and American 
theaters. To say the game was a bit mi- 
gainly would add a new dimension to 
the art of the understatement. However, 
War in the East was a game which simu- 
lated the problems faced by command- 
ers (on several levels and on both sides) 
to a remarkably accurate degree. 

War in Russia is essentially a com- 
puter version of War in the East (though 
I very much doubt that Gai-y Grigsby, the 
game's designer, is aware of that) and, 
although the map is scaled down and 
the units set to a manageable size, WIR 
has all of the same features plus a few 
of its own to sweeten the pot. 

It's a big game; make no mistake about 
that. The box copy touts, "You're hold- 
ing the result of two years' efforts to cre- 
ate the definitive simulation of the war 
in Russia, 1941-1944." The campaign 
game takes a whopping 100 hours to 
complete! 

Playing the game well requires a firm 
grasp of the job to be done, a semblance 
of an overall strategy, tactical excellence 
and attention to detail. (Gertainly, these 
things can be learned by doing.) 

Although 1 don't want to get too heav- 
ily into the mechanics of the game, the 
following will outhne the general struc- 
ture. WIR proceeds through seven sep- 
arate phases, each with one or more 
subphrases. As complex as it sounds, 
the computer does most of the work and 
leaves the player(s) to attend to tactics 
and strategy instead of bookkeeping. 

Not to say there isn't a lot to be done; 
there is. But the computer does aJl of the 
math in the game, all of the looking up 
of combat odds and modifiers, all of the 
rules checking (it's impossible to make 
an illegal move), and forces the game 



You've holding 
the result of 
two years' efforts 
to create the 
definitive 
simulation of the 
war in Russia, 
1941-1944. 



into an orderly, step-by-step affair which 
is — if you're into cerebral gaming — easy 
and fun to play. 

WIR uses the usual "zone-of-control" 
concept, that is, a miit exerts a zone of 
control into the six adjacent hexes. This 
ZOG has a variety of effects on move- 
ment, combat and supply, and makes 
possible those huge enveloping actions 
so common at the beginning of this 
campaign. 

Logistics play a crucial part in WIR. 
Supply depots have to move to within 
two hexes of the units they're to supply, 
and neither die two-hex supply route nor 
the depot itself may enter an enemy zone 
of control. 

Units which can't be supplied sui'fer 
a variety of detrimental effects, includ- 
ing loss of combat effectiveness, loss of 
or impeded movement, and a lack of ai-- 
tillery. Air strikes also must be supplied 
to be allocated. 
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All movement is handled through the 
keyboard, and there are several different 
categories of movement. 

Tactical movement is plotted ahead of 
time and executed during the combat 
phase. Under certain conditions (the cri- 
teria change dui'ing the game), the play- 
er sequence may change. At the begin- 
ning of the game, odds are overwhelm- 
ing that the Axis player -will be the "first 
player" during the combat phase, but as 
the war progresses, the odds become 
better that the Soviets will take the ini- 
tiative. 

Strategic movement is designed to get 
units around behind the lines and/or 
move new units up to the front quickly. 
Although it's faster than tactical move- 
ment, strategic movement is also severe- 
ly restricted. Rail movement is another 
limited option open to each player. 

Some of the other features in WIR are: 
variable weather conditions, unit experi- 
ence (unit effectiveness increases with 
combat experience and decreases with 
replacements), partisans, lend lease, 
building rail nets, artillery, and fatigue. 

Units which have not moved in any 
manner during the previous turn will 
automatically attempt to increase their 
entrenchment level. High entrenchment 
levels increase defense against artillery 
bombardment and air strikes. 

Finally — but certainly not least of all 
— is the production phase of the game. 
All new units entering the game must 
be produced in "factories." There are 
four types of factories: heavy industry, 
vehicle, artillery and aircraft. A player 
starts the game with a number of each, 
and additional factories may be built as 
the game progresses. 

This part can make or break you. Pro- 
duction strategy must take into account 
casualties, overall strategy, and the ebb 
and flow of the game. It becomes patent- 



ly obvious (very quickly) that you can't 
build everything you want, that real 
choices have to be made, and that this 
aspect of WIR is the most difficult to 
master. 




War in Russia. 

No hints on production strategy are 
included with the game. Trial and error 
(and error and error) will be your tutor, 
but with experience comes the savvy 
you'll need to get through this part of 
the game with a modicum of efficiency. 

Unfortunately, there are a couple of 
drawbacks to WIR. First is the length of 
time it takes to play a com- 
plete game, even one of the 
shortest scenarios. You have 
to expect to spend at least 
twenty hours at your com- 
puter to finish a game — and 
much more, if you're play- 
ing with another human. 

The second problem's one 
that applies to all computer 
games of this genre. When- 
ever you're playing against 
another person, there are al- 
ways hours spent twiddling 
yom- tliumbs while your op- 
ponent makes his or her de- 
cisions on moves. Although 
tUs doesn't exactly make for 



super exciting game sessions, there is a 
possible way around it. 

WIR is set up so that the game can 
be saved after any player's phase. There 
is no reason why a player couldn't make 
his move, save the game and transfer the 
file through a modem to a player else- 
where. Your opponent could then restart 
the game with this file, make his move, 
save the game and ship it back to you 
over the phone. I haven't tried this yet, 
but it's something I'm looking into. 

All in all, WIR is an excellent offer- 
ing, even with its drawbacks. SSI is the 
premier house for computer war games, 
and War in Russia is one of the best in 
the house. D 

Bob Curtin is a machinist who got into 
computing in 1982, when he bought an 
Atari 800. He uses his computer for writ- 
ing, programming, telecommunications, 
and the more cerebral games. His amhi- 
iion is to write the definitive computer 
baseboiJ game. 



:&^ ROCKY MOUNTAIN 



1750 30th STREET 



BOULDER, CO 80301 



HiHniacnvibc 

I FACTORY AUTHORIZED NETWORK 



EXTENDED SERVICE CONTRACTS 
SALES • CONSIGNMENTS • TRADE-INS 

TO FIND THE SERVICE CENTER NEAREST YOU 

NATIONWIDE — Dial: 1 -800-66-ATARl 

IN COLORADO — Dial: 1 -800-55-ATARI 

DENVER/BOULDER Metro — Dial: 44-ATARI 

VISIT ELECTRIC LAND: 303/447-ABBS 
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by Phillip Burgess 



Supereversion is an Atari computer adaptation of 
the classic flip-the-chips game best known as Othello 
or Reversi. The game is played on an eight-by-eight 
grid, using chips which have a different color on each 
side. We start with two of each color in the middle 
of the board. 

With white moving first, players alternate turns, 
capturing their opponent's chips by outflanking them 
on two sides. Here's how it works. 

Suppose a row of chips looked like this: 



By placing a white chip at the right end of the row. 





This exam- 
ple shows the 
chips being re- 
versed in one di- 
rection only. Chips 
can actually be cap- 
tured in up to eight 
directions, as long as 
there's a chip of your col- 
or at the opposite end of 
the row you intend to cap- 
ture. After the chips are re- 
versed to your color, they are 
yours and can be used in sub- 
sequent moves to gain chips. 

Players must make moves that 
score. If you make an illegal move, 
such as a non-scoring move or plac- 
ing one chip on top of another, the 
computer will emit a hideous sound 
to let you know that you must make a 
different move. If there are no possible 
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legal moves for you, press- 
ing P will pass the move to 
your opponent, and you'll lose 
a chip from your supply of thirty. 
Supereversion continues till both 
players exhaust their chip supply, one 
player captures every chip on the board, 
or both players pass the move. The player 
with the most chips in his or her color at the 
end of the game is the winner. 
Although a high-scoring move is the most appeal- 
ing, it's usually best to make a lower-scoring move 
which puts your chips in a position less likely to be 
captured by your opponent. 

Chips placed along the outside edge of the board 
are valuable, since they can be captured from only 
two directions, but can serve as an outside edge for 
up to five directions. A corner chip is even more valu- 
able. It cannot be captured from any direction and 
will remain yours until the end of the game. 

The second to edge squares, on the other hand, 
should be avoided. A chip placed in one of these 




squares could be your opponent's bridge to an out- 
side edge position. 

The computer is programmed to use these tactics 
in the decision of its move. However, it only thinks 
about the current move and doesn't plan moves in 
advance. 

Although the computer is an excellent opponent 
for beginners, advanced players will find it more 
challenging to play against another human. If you 
should, however, find yourself losing to the computer, 
just keep in mind that the SYSTEM RESET key is 
always within arm's reach! D 

Currently a junior in high school, Phillip Burgess 
received his Atari 400 three years ago. He's primar- 
ily interested in graphics, with games and music fol- 
lowing close behind. He hopes to find employment 
someday in the exciting field of computer graphics. 

(Listing starts on next page] 
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Supereversion continued 



Listing 1. 
BASIC listing. 



SUPEREMERSION 
BV PHILLIP BURGESS 



le REH 

29 REH 

38 READ Kl,K2,K3,K4,K5,Ke,K7,K8,Kie:DA 

TA 1,2, 3, 4. 5, 6,7,8,10 

40 GRAPHICS KO:POKE 752, Kl: POKE 709,15 

-.POKE 710, KO 

SO POSITION K7,K3:? "INITIALIZING SUPE 

REVERSION" 

60 POSITION K3,K7:? "RELAX, THIS TAKES 

ABOUT 40 SECONDS" 
70 FOR I=KO TO 75e:NEKT I: FOR 1=15 TO 
KO STEP -0.25:P0KE 709,I:NEKT I:? CHRS 
tl25J 

80 POKE 559, KO: POKE 752, Kl: GOTO 860 
90 POKE 711.K2!M= 29 
100 REM ISmMMiia 

lie FOR I=K1 TO K2:P0KE 77,K0:P0KE 704 
,K2+K10»tI=Kl} 

120 POSITION 17,21:? " ":IF PAS5= 
K2 THEN 1860 

130 X1=K7»CI=K23 :VlrK7»(I=Kl) 
140 X=:684112W(I=K2) : Y=68 :0=USR CMOVE, KO 
, PMB , CURSOR , X , Y , K4) 

150 FOR V=K10 TO KO STEP -Kl: SOUND KO, 
60, K10,V: SOUND K1,29+92«CI=K2) ,K10,V:P 
OKE 711,PEEKt711)+<I=K13-CI=K2J :NEXT U 
168 F=Ke:ON P(I}+K1 GOTO 210,450,450 
170 NEXT I 
180 M=M-Kl:IF M<KO THEN 1860 

190 GOTO 110 

200 REN [i^n Z'l sm i 3| "lEHFiTPn 

210 MAX=KO:TEMPX=KO:TEMPV=KO:FOR X1=K0 

TO K7:F0R Y1=K0 TO K7 
220 IF GRID CXI, YD THEN 270 
230 VA=Ke:FOR D1=-K1 TO K1:F0R D2=-K1 
TO Kl 

240 TRAP 260 

250 IF GRIDfXl+Dl,Vl+D2J=K3-I THEN 280 
260 TRAP 270: NEXT D2:NEXT Dl 
270 NEXT Yl:NEXT XI : X1=TEMPX : Y1=TEMPY : 
F=K0:G0T0 370 

280 FOR A=K2 TO K7:TRAP 300 :TEMP=GRID f 
X1*D1»A,V1+D2»A} :IF NOT TEMP THEN 260 
290 IF TEMP=I THEN 310 
300 NEXT A: GOTO 260 
310 VA=UA+A 

328 IF X1=K0 OR X1=K7 THEN VA=VA«K4 
330 IF Y1=K0 OR Y1=K7 THEN UA=VA«K4 
340 IF X1=K1 OR X1=K6 OR Y1=K1 OR Y1=K 
6 THEN VA=VA/K6 

350 IF UA>HAX OR CUA=MAX AND RNDCKe)>e 
.5) THEN MAX=VA:TEMPX=Xl:TEMPYrYl 
360 GOTO 260 

370 IF NOT MAX THEN 530 
380 DESTX=124+K8»TEMPX-K8«TEMPY : DESTV= 
40+K4»tTEMPX+TEMPYJ 

390 R0T=R0T+K4:IF R0T>16 THEN R0T=K4 
400 X=X+ ( CDESTX>X3 - fDESTX<XJ >»K2 : V=Y+ 1 
DESTV>Y3-CDESTY<Y3 

410 (I=USR (HOVE , KO , PMB , CUR50R+R0T , X , Y , K 
43 

420 IF X=DESTX AND Y=DESTY THEN 560 
430 GOTO 390 

440 REM i;iii;r-i:u-wiM:i 

450 D1=K0:D2=K0:G0T0 450+STICK tPCIJ-Kl 
) 

455 IF XKK7 THEN X1=X1+K1 :D1=K1 :D2=0 . 
5: GOTO 470 

456 IF V1>K0 THEN V1=Y1-K1 :D1=:K1 :D2=-0 
.5: GOTO 470 

457 IF X1<K7 AND Y1>K0 THEN X1=X1+K1:Y 
1=Y1-K1:D1=K2:G0T0 470 

459 IF YKK7 THEN Y1=Y1+K1 : D1=-K1 :D2=0 
.5:G0T0 470 



460 IF X1>0 THEN X1=X1-K1 :D1=-K1 : D2=-0 
.5:G0T0 470 

461 IF X1>K0 AND Y1<K7 THEN X1=X1-K1:Y 
1=Y1+K1:D1=-K2:G0T0 470 

463 IF XKK7 AND Y1<K7 THEN X1=X1+K1:Y 
1=Y1+K1:D2=K1:G0T0 470 

464 IF X1>K0 AND Y1>K0 THEN X1=X1-K1:Y 
l=Yl-Kl:D2=-Kl:G0T0 470 

465 R0T3R0T+K4:IF R0T>16 THEN R0T=K4 

466 a=USR CMOVE, KO, PMB, CURSOR+ROT,X,Y,K 
4) :GOTO 490 

470 FOR J=K1 TO K8:X=X+D1 : Y=Y+D2 :ROT=R 

0T*K4:IF R0T>16 THEN R0T=K4 

480 Q=USR CMOVE, KO, PMB, CURSOR«ROT,X,Y,K 

4) :NEXT J 

490 IF NOT STRIGCPCI5-K1J THEN 560 

500 IF PEEKC7643=K10 THEN POKE 764,255 

:GOTO 520 

510 GOTO 450 

520 0=USR CMOVE, KO, PMB, CURSOR, X,Y,K4) 

530 POSITION 17,21:? "I PASS" :PASS=PAS 

S+Kl:FOR V=K8 TO KO STEP -K1:F0R V1=V 

TO KO STEP -Kl 

540 SOUND K0,60,Kie,Vl:S0UND Kl, 29+92* 

CI=K23,K 10.V1;NEXT VI: NEXT V:GOTO 800 

550 REM IJWdBilitiJl 

560 4I=USRCM0VE,K0, PMB, CURSOR, X,Y,K4} :I 

F GRID CXI, YD THEN 840 

570 FOR Di=-Kl TO K1:F0R D2r-Kl TO Kl 

580 TRAP 600 

590 IF GRIDCX1*D1,Y1+D2J=K3-I THEN 620 

600 TRAP 610: NEXT D2:NEXT D1:IF NOT F 

THEN 840 
610 GOTO 800 

620 FOR A=K2 TO K7:TRAP 608 :TEMP=GRID C 
Xl+DlKA,YlHhD2KA]:IF NOT TEMP THEN 600 
630 IF TEMP=I THEN 650 
640 NEXT A: GOTO 600 

650 IF NOT F THEN SC CK3-IJ=SCCK3-IJ+K 
l:GOSUB 720 

660 IF PASS>Ke THEN PASS=PASS-K1 
670 F=K1:F0R B=K1 TO A-Kl 
680 X1=X1+D1:V1=Y1+D2:G0SUB 720 
690 NEXT B:X1=X1-D1*CB-KD :Y1=Y1-D2«CB 
-KD 

700 GOTO 600 
710 REM IdMHiMiH 

720 A1=19+X1+X1-Y1-V1:B1=K4+X1+Y1:L0CA 
TE A1,B1,Z 

730 IF CZ=116 OR Z=23J AND I=K1 THEN P 
OSITION Al,Bl:? CHR$C19);CHRSC20) 
740 IF CZ=117 OR Z=253 AND I=K1 THEN P 
OSITION Al,Bl:? CHR$C2D;CHR5C22) 
750 IF CZ=116 OR Z=19> AND I=K2 THEN P 
OSITION Al,Bl:? CHR$C23);CHR$C24] 
760 IF CZ=117 OR Z=2D AND I:rK2 THEN P 
OSITION Al,Bl:? CHR5C25};CHR$C26) 
770 FOR V=K4 TO KO STEP -K1:S0UND K0,6 
0,K10,V:S0UND Kl, 29+92* CI=K2) ,K10,V:NE 
XT V 
780 SC CD =SC CD +K1 : SC CK3-I) =SC CK3-D -K 

1 : GRID CX I. YD =1; RETURN 

790 REM IJ:H:fd[JiMX-«Mi!>i liJM ill 1 1 

800 POSITION K8,18:? SCCKD,"" ":POSITI 

ON 36 18:' SCCK2) '" " 

810 POSITION K10+26»CI=K2J ,20:? M;" " 

820 IF SCCKD =:K0 OR SCCK2}=K0 THEN 186 



830 GOTO 170 

840 FOR V=15 TO KO STEP -0.2:S0UND KO, 

72,K6,V: HEXT V:GOTO 45 8 

850 REM »;fc**H*w:*ifin 

868 DL=PEEKC560)+PEEKC5eD*256 

878 POKE DL+K3,69:P0KE DL+Ke,K5:F0R 1= 

K7 TO 28: POKE DL+I,K4:NEXT I 

880 DIM GRIDCK7,K7),PCK2),SCCK2),PL$C4 

0) 
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850 PLS=" computer stick one 5TICK TMO 

COMPUTER " 
980 DIM CS{3072} :C=ADRCCSJ :CH=tIHTtC/l 
024J+Ki3»K4:D=CH*256-C:P0KE 756, CH 
910 PMBftSE=CH+K4:P0KE 54279, PMBftSE : PMB 
=PMBfl5E»256:P0KE 53277, K3 : POKE 623, Kl 
920 M0UE = PMB : SPIM=:M0ME+100 : CUR50R=SPIN 
+84 : BRITE3CUR50R+28 

930 FOR I=K8 TO 215: READ ft: POKE MOUE+I 
■ArNEKT I 

940 DATA 216,104,104,104,133,213,104,2 
4,105,2,133,206,104,133,205,104,133,20 
4,104,133,203,104,104,133,208 
950 DATA 104,104,133,209,104,104,24,10 
1,209,133,207,166,213,240,16,165,205,2 
4,105,128,133,205,165,206,105 
960 DATA 0,133,206,202,208,240,160,0,1 
62,0,196,209,144,19,196,207,176,15,132 
,212,138,168,177,203,164 
970 DATA 212,145,205,232,169,0,240,4,1 
69,0,145,205,200,192,128,208,224,166,2 
13,165,288,157,0,208,96 

980 DATA 28,62,127,127,127,62,28,8,28, 
62 , 62 , 62 , 28 , 8 , 8 , 8 , 28 , 28 , 28 , 8 , 8 
990 DATA 8,8,8,8,8,8,8,8,8,28,28,28,8, 
8, 8ji28ji62ji62jE62j.28i.8 

1000 DATA 28,62,127,127,127,62,28,0,28 
,62,127,62,28,0,0,0,28,127,28,0,0 
1010 DATA 0,0,0,127,0,0,0,0,0,28,127,2 
8,0,6,8,28,62,127,62,28,0 
1020 DATA 255,129,129,255,238,1,129,22 
1,119,128,129,187,187,129,128,119,221, 
129,1,238 

1030 DATA 0,2,4,6,8,12,14,12,8,6,4,2 
1040 FOR I=KO TO 983:READ A:P0KE C+D+I 
,A:NEKT I 

1050 DATA 0,0,0,0,0,0,0,0,12,12,12,12, 
0,8,4,0,0,0,0,0,0,0,8,8 

1868 DATA 8,3,15,63,255,254,258,234,8, 
3,15,63,255,253,245,213,255,253,245,21 
3,85,149,165,169 

1878 DATA 255,254,250,234,178,106,98,8 
6,255,127,95,87,85,86,90,106,255,191,1 
75,171,170,169,165,149 

1880 DATA 0,192,240,252,255,191,175,17 
1,0,192,240,252,255,127,95,87,170,234, 
250,254,255,127,95,87 

1090 DATA 85,213,245,253,255,127,95,87 
,170,169,165,149,85,213,245,253,85,86, 
90,106,170,234,258,254 

1188 DATA 8,21,42,63,42,21,0,0,12,51,5 
1,51,63,42,4,0,12,60,12,12,63,42,21,0 
1110 DATA 60,3,12,48,63,42,21,0,63,3,1 
2,3,63,42,20,0,51,51,63,15,15,10,5,0 
1120 DATA 63,48,60,3,63,42,20,0,15,48, 
68 , 51 , 63 , 42 , 4 , 8 , 63 , 3 , 3 , 12 , 12 , 40 , 20 , 
1138 DATA 12,51,12,51,63,42,4,8,12,51, 
15,3,63,42,28,8,178,186,98,86,85,86,98 
,186 

1140 DATA 85,149,165,169,170,169,165,1 
49,170,169,165,149,85,149,165,169,85,8 
6,90,106,170,106,90,86 

1150 DATA 255,127,95,87,85,21,5,1,255, 
254,250,234,170,168,168,128,0,0,0,0,0, 
0,0,0 

1160 DATA 12,51,51,63,51,34,17,0,60,51 
,60,51,63,42,20,0,15,48,48,48,63,42,5, 


1170 DATA 60,51,51,51,63,42,20,0,63,48 
,60,48,63,42,21,0,63,48,60,48,48,32,16 

,0 

1188 DATA 15,48,51,51,63,42,5,0,51,51, 

63 , 51 , 51 , 34 , 17 , , 63 , 12 , 12 , 12 , 63 , 42 , 21 , 



1190 DATA 3,3,3,3,63,42,20,0,51,51,60, 

51 , 51 , 34 , 17 , , 48 , 48 , 48 , 48 , 63 , 42 , 21 , 



1200 DATA 51,63,63,51,51,34,17,0,60,51 

,51,51,51,34,17,0,12,51,51,51,63,42,4, 



1210 DATA 60,51,51,60,48,32,16,0,12,51 

,51,51,63,40,5,0,60,51,51,60,51,34,17, 



1220 DATA 15,48,12,3,63,42,20,0,63,12, 

12,12,12,8,4,0,51,51,51,51,63,42,4,0 

1230 DATA 51,51,51,51,63,8,4,0,51,51,5 

1,63,63,34,17,0,51,51,12,51,51,34,17,0 

1240 DATA 51,51,12,12,12,8,4,0,63,3,12 

,48,63,42,21,0,170, 106 ,90,86,85,87,95, 

127 

1250 DATA 85,149,165,169,170,171,175,1 

91,170,171,175,191,255,254,250,234,85, 

87,95,127,255,254,250,234 

1260 DATA 255,127,95,87,85,87,95,127,0 

,3,15,63,255,127,95,87,0,0,1,6,26,106, 

106,106 

1270 DATA 0,0,85,170,170,170,170,170,0 

,0,85,170,171,175,131,160,0,0,85,170,2 

55,192,255,15 

1280 DATA 0,0,85,170,239,143,143,207,0 

,0,85,170,239,207,207,207,0,0,85,170,2 

55,207,255,255 

1290 DATA 0,0,85,170,175,207,207,143,0 

,0,85,170,255,192,254,202,0,0,85,170,2 

39,143,143,143 

1300 DATA 0,0,85,170,171,239,195,160,0 

,0,85,170,239,131,163,227,0,0,85,170,2 

54,250.248,248 

1310 DATA 0,0,85,170,191,252,252,252,0 

,0,85,170, 250 ,252,252, 252 ,0,0,85,170,2 

55,252,252,252 

1320 DATA 0,0,85,170,250,254,254,254,0 

, , 64 J, 144 , 164 , 169 , 169 , 169 , 95 , 124 , 255 , 2 

55,255,63,79,80 

1330 DATA 245,61,223,255,255,252,241,5 

,175,188,255,255,255,63,143,160,250,62 

,207,255,255,252,242,10 

1340 DATA 80,67,0,0,0,192,112,95,5,193 

,48,0,0,3,13,245,160,131,0,0,0,192,176 

,175 

1350 DATA 10,194,48,0,0,3,14,250,0,0,0 

,0,0,0,0,0,8,8,0,0,0,0,0,0 

1360 DATA 0,0,0,0,0,0,0,8,8,6,8,8,8,8, 

8,8,8,0,0,0,0,0,0,8 

1370 DATA 255,253,245,213,85,213,245,2 

53,186,106,106,26,6,1,0,0,170,170,170, 

170,170,85,0,0 

1380 DATA 143,143,143,128,170,85,0,0,2 

55,255,255,2,170,85,8,0,207,207,131,16 

0,170,85,8,8 

1398 DATA 287,287,143,128,178,85,8,8,1 

94,234,234,178,170,85,0,0,143,143,143, 

128,170,85,0,0 

1400 DATA 255,255,255,0,170,85,0,0,207 

,207,207,128,170,85,0,0,195,224,232,17 

0,170,85,0,0 

1410 DATA 255,254,58,42,170,85,0,0,239 

, 207 , 143 , 128 , 170 , 85 , , , 252 , 252 , 252 , lO 

,170,85,0,0 

1420 DATA 255,255,63,0,170,85,0,0,252, 

252,248,40,170,85,0,0,252,252,252,8,17 

0,85,0,0 

1430 DATA 254,254,254,10,170,85,0,0,16 

9,169, 169 , 164 , 144 , 64 , , 8 , 85 , 85 , 85 , 85 , 8 

5,85,85,85 

1448 DATA 178,178,178,170,170,170,170, 

170,0,0,0,0,0,3,15,63,0,0,0,0,0,192,24 

0,252 

1450 DATA 85,21,5,1,0,0,0,0,170,168,16 

0,128,0,0,0,0,0, 192 ,240,252, 255 , 254 , 25 

0,234 

1460 REM IJ;l=gtf-T:i;*.-l^t na 

1470 POKE 708,K5:POKE 709,K10:P0KE 710 

,15:P0KE 711,K8:P0KE 712, KO 
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Supereversion coiutnued 



1480 RESTORE 1430 : POSITION K4,K0:F0R X 

=K4 TO 35:READ ft:? CHRS CflJ ; : NEXT X:? 

1490 DATA 1,2,2,3,4,5,6,6,7,8,9,10,7,8 

,9,10,6,6,9,10,7,11,4,12,13,14,15,16,1 

7,2,2,18 

1500 POSITION K4,Kl:? "abbcdedf ghi j j ji 

klhi j j jdMnopqrbbS" 

1510 C=Kl:FOR X=KO TO K7:F0R Y:=KO TO K 

7 

1520 POSITION 19+X+X-Y-Y,4+X*V:? CHRSC 

116+CJ ; CHRS (116+C3 ; CHRS C58+C> ; CHR5 168+ 

C) 

1530 C= NOT C:NEXT V:C= NOT C:NEXT X 

1540 C=K1:F0R X=KO TO K6 

1550 POSITION 16-X-X,K4+X:? CHRS(246J; 

CHRStl63+C) ;CHR5(165+C) 

1560 POSITION 21*X+X,K4+X:? CHRS(167+C 

) ;CHR5(169+C} ;CHR5(247J 

1570 POSITION 15-X-X,18-X:? CHRSC1203; 

CHRS C198 J ; CHR5 C171+C3 ; CHRS (173+C} 

1580 POSITION 21+X+X,18-X:? CHRSC219+C 

) ;CHRSt221+C) ;CHRStl91>;CHRS(121J 

1590 C= NOT C:NEXT X 

1600 FOR I=KO TO K8:READ A,B,C:FOR J=K 

TO C:READ DiCOLOR D:PLOT A+J,B:NEXT 

J "NEXT I 

1610 DATA 18,3,3,246,163,169,247,3,11, 

1 , 128 , 224 , 35 , 11 , 1 , 223 , 250 , 17 , 19 , 5 , 120 , 

190,171,221,191,121 

1620 DATA 19,20,1,120,121,19,10,1,25,2 

6,19,12,1,25,26,17,11,1,19,20,21,11,1, 

19,28 

1630 POSITION 9,K2:? "PRESS /START/ TO 
PLAY" 

1640 POSITION K2,K3:? "PLAYER OHE":POS 

ITION K3,K5:? "STICK ONE" :POSITION K3, 

K6:? "/OPTION/" 

1650 POSITION 28, K3:? "PLAYER TWO":POS 

ITION 29, K5:? "COMPUTER": POSITION 29, K 

6:? "/SELECT/" 

1660 POSITION K2,16:? "WHITE" : POSITION 
K2,18:? "SCORE 2":P0SITI0H K2,20:? "R 

ESERVE 30" 

1670 POSITION 33,16:? "BLACK" :POSITIOH 
30,18:? "SCORE 2":P0SITI0N 28,20:? "H 

ESERUE 30" 

1680 POKE 53276,192 

1690 FOR X=KO TO K7:F0R Y=K8 TO K7:GRI 

D{X,Y)=KO:NEXT Y:NEXT X 

1700 GRID <K4 , K3 J =K1 : GRID tK3 , K4) rKl : GRI 

D {K3 , K33 =K2 : GRID tK4 , K4) =K2 

1710 P (Kl) =K1 : P <K2J =K0 : SC tKl) =K2 : SC (K2 

)=K2:PASS=K0 

1720 POKE 559,46 

1730 REM ^ ,^ ^e 

1740 FOR t-ldi ttt 11 SPOKE 706, PEEK (BRIT 

E+I):POKE 707,15-PEEKCBRITE+I} 

1750 Q=USR (MOVE , K2 , PMB , SPIN+I»K7 , 66 , 20 

, K7 J : Q=USR (MOVE , K3 , PMB , SPIN+77-I*K7 , 18 

1,20,K73 

1760 IF PEEK(53279J=K3 THEN P(K1)=P(K1 

)+Kl:POSITION K3,K5:? PLS (P (K13»K10+K1 

,P(K1}»K10+K10} 

1770 IF PEEK(53279J=K5 THEN P(K2)=P(K2 

J+K1:P0SITI0N 29, K5:? PLS (P (K2J»K10+K1 

,P(K2)»K10+K10) 

1780 IF P(K1J>K2 THEN P(K1J=K0 

1790 IF P(K2)>K2 THEN P(K2J=K0 

1800 IF PEEK(53279}=K6 THEN 1820 

1810 NEXT I: GOTO 1740 

1820 POKE 706.14:P0KE 707 , KO : Q=USR (MOV 

E,K2,PMB,SPIN,66,20,K7) : 0:=USR (MOVE, K3, 

PMB, SPIN, 181, 20, K7) 

1830 POSITION 9,K2:? " 

":POSITION K3,K6:? " ":POS 

ITION 29, K6:? " 

1840 GOTO 90 

1850 REM ^SMESSM 



PLAYER SELECTION 



1868 0=USR (MOVE, KO, PMB, KO.KO.KO.KO) :F0 

R I=K1 TO K8:Z=PEEK(7li) :POKE 711,Z+(Z 

<K8J-(Z>K8J :NEXT I 

1870 IF SC(K1J=SC(K2} THEN POSITION 14 

,21:? "IT IS A TIE.": GOTO 1910 

1880 POSITION 12,21:? "PLAYER "; 

1890 IF SC(K1>>SC(K2J THEN ? "ONE HINS 

i900 IF SC(K2J>SC(K1) THEN ? "TWO WINS 

I " 

i910 FOR I=:KO TO 500: NEXT I 

1920 FOR 1-704 TO 711: FOR J=PEEK(I> TO 

KO STEP -Kl:POKE I, J: NEXT J: NEXT I 
1930 ? CHRS (125J: POKE 559, KO: GOTO 1470 



CHECKSUM DATA. 

(see page 24} 

10 DATA 273,459,358,248,984,656,47,316 

,664,651,569,744,509,499,351,7328 

160 DATA 270,749,758,713,106,144,548,5 

42,724,702,992,40,756,94,814,7952 

310 DATA 565,677,686,17,346,725,194,73 

9,144,398,780,816,729,857,107,7780 

455 DATA 148,352,814,420,138,949,817,9 

47,142,908,547.515,318,663,715,8393 

520 DATA 87,670,411,11,94,726,732,712, 

969,710,758,97,838,422,429,7666 

670 DATA 462,420,158,705,778,176,268,2 

64,276,284,43,241,743,145,564,5527 

820 DATA 676,727,846,921,706,390,966,7 

06,358,632,153,57,648,741,444,8971 

970 DATA 197,113,504,238,449,999,867,8 

49,283,363,102,139,105,630,463,6301 

1120 DATA 454,63,150,347,807,69,749,46 

8,790,844,385,50,382,349,570,6477 

1270 DATA 5,215,209,241,211,552,178,14 

1,602,714,185,211,240,245,990,4939 

1420 DATA 633,905,238,292,953,629,652, 

597,520,46,221,828,160,492,503,7669 

1570 DATA 221,303,666,659,601,225,797, 

888,655,730,581,490,117,218,138,7289 

1720 DATA 184,900,506,724,75,21,693,69 

8 , 658 , 882 ,675,495, 663 , 796 , 946 , 8828 

1870 DATA 323,956,145,185,399,634,412, 

3054 
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Lyco Computer Marketing & Consultants 



(^ I SAVE °= PRINTERS I ^^ 




AXION 

GP 550 AT (Atari) 249 

GP 550 CD (C-64) 249 

GP 550 PC (IBM) 239 

GP 550 AP (Apple) 279 

GP 700 AT (Afari) 459 

GP 700 AP Apple) 459 

Elite 5CD (C-64) 329 

BLUE CHIPS 

M12010 S276 

M12010 C-64 $275 

C. ITOH 

Prowriler 8510 AP 279 

8510 BC2 389 

8510 BP1 319 

8510 SP 379 

8510 SR 429 

8510 SCP 459 

8510 SCR 479 

7500 AP 205 

7500 AP 245 

1550 P 449 

1550 BCD 489 

A-10-20-P 459 

F 10 40 PU or RDU 888 

F10 SSPU or RDU 1069 



CARDCO 

LQ1 369 

LQ3 279 

CITIZEN 

MSP-10 329 

MSP-15 499 

MSP-20 479 

MSP-25 649 

COMREX 

CR-II-EC Comriler HE Parallel 359 

CR-II-ES Comriler II E Parallel 379 

CR-IV-C Comriler IV Parallel 689 

CR-IV-S Comriler IV Serial 689 

Corona 

LP300 Laser Printer .... 2699 
200361 Toner Cartridge.. 89 

DIGITAL 
DEVICES 

16K printer buffer 99 75 

32K primer buller 119 75 

64K prinler butler 1 69 95 



EPSON 

RX-80 225 

RX-80 FT- 279 

FX100' 579 

JX 80 529 

LQ 1500 P 1089 

LO 1500 S 1149 

HI-80 Color Plotter 399 

JUKI 

Juki 6100 379 

RS 232 Serial Board 55 

Tractor 119 

Stieet Feeder 209 

Juki 6300 769 

LEGEND 

880 219 

1080 239 

1200 249 

it: PRINTER ^ 

INTERFACING 

Available 



MANNESMANN TALLY 

Spirit 80 255 

MTL-160L 549 

MTL-180L 739 



NEC 

NEC 8025 1699 

NEC 8027 $359 



OKIDATA 

Okimale 10 179 

82A 295 

84 645 

92 349 

93 565 

92 Imagewriter 425 

92 IBM Version 349 



OLIVETTI 

DY 250 Parallel 739 

DY 250 Serial 729 

DY 450 Parallel 1099 

DY 450 Serial 1079 



PANASONIC 

1090 189 

1091 259 

1092 395 

1093 589 

3151 459 



Smith Corona 

Fastext 80 189 00 

D100 21900 

D200 39900 

D300 519 00 

L 1 000 339 00 



STARMICRONICS 

SG-10 219 

SG-15 379 

SD-10 339 

SD-15 445 

SR-10 489 

SR-15 585 

Powertype 309 

Gemini 10X CALL 

Gemini 15X CALL 

SB-10 CALL 



MONITORS 



MODEMS 



DRIVES 



AMDEK 

300 Green 125 

300 Amber 139 

310 Annber IBM 155 

Color 300 Audio 245 

Color 500 Composite 369 

Color 600 429 

Color 700 495 

Color 710 569 

GORILLA 

12" Green 78 

2" Amber 84 

NEC 

JB-1260 Green 95 

JB-1201 Green 135 

JC 1215 Color 235 

JC 1216 RGB 375 

JC1450 Color 265 

JB-1205 Amber 139 

PANASONIC 

DT 1300 RG1 composite 329 

PRINCETON GRAPHICS 

MAX-12 Amber 189 

HX-12 RGB 475 

SR-12 RGB 599 

ATARI 

800 XL Computer CALL 

1050 Drive 169 

1010 Recorder 44 

1020 55 

1025 185 

1027 239 

850 109 

SYNAPSE 

(ATARI) 

Syntlle 34.95 

Syncalc 34.95 

Syncomm 27,95 

Syntrend 27.95 

fynchron 27.95 
ynslock 27.95 



SAKATA 

SC-100 Color 219 

STS1 Stand 29 

SG 1000 Green 99 

SA 1000 Amber 109 

TAXAN 

210 Color RBG 249 

115 Green 119 

116 Amber 125 

400 Color RGB 275 

410 Color RGB 339 

420 Color IBM 429 

121 Green IBM 139 

122 Amber IBM 145 

X-TRON 

Comcolor I Composiic Green. 199 

ZENITH 

ZVM 122A Amber 84 

ZVM 123G Green 75 

ZVM 124 Amber IBM 129 

ZVM 131 Color 275 

ZVM 133 RGB 389 

ZVM 135 Composite 449 

ZVM 136 Hi Res Color 589 

INNOVATIVE CONCEf TS 

Flip-n-File 10 3.50 

Flip-n-Flle 15 8.25 

Fiip-n-File 25 Lock 17.95 

Flip-n-File 50 17.25 

Flip-n-File 50 Lock 22.95 

Flip-n-FilB Rom 17.25 

MtCROPOSE 

Solo Flight 22.75 

NATO.." 22.75 

Spitfire Ace 19.95 

F-15 Strike Eagle 22.75 

GRAPHIC TABLET 

Super Sketch 32.95 

Koala Pad 59.95 



MICROBITS 

MPP 1000 E (Atari) 

HAYES 

Smartmodem 300 


99 00 

. 189 
.459 
.389 
.249 
.289 
179 
.75 


Smartmoden 1200 

Smartmoden 1200B 

Micromodem IIE 

Micromodem 100 . . 

Chronograph 

Smart Com II 



INDUS Atari 
$219.00 




DISKETTES 



MAXELL 

5%" MD-I 16.99 

5".' MD-2 23 75 




SKC 

101 



lBo» 

5%" SKC-SSSD... 1099 

5V." SKC-SSDD 13 99 

5V4" SKC-DSDD 15 99 



^ 



5Vt" 
5%" 
5V«" 



ELEPHANT 

|Bo« 101 

SSSD 13.99 

SSDD 15 99 

DSDD 19.99 



CONTINENTAL 

Home Accounlanl 44.75 

1985 Book ol Alain Software 16.95 



SUBLOGIC 

Flight Simulator II 32 75 

Night Mission Pinball 18.75 



SCARBOROUGH 

Net Worth 49.95 

Mastertype 24.75 

Improveti Mastertype 24 75 

Masterlypes Filer 24,75 



SSI 

Baseball 22.75 

Question 26 75 

50 Mission Crush 22.75 

Broadsides 22.75 

Computer Ambush 34,75 

SPINNAKER 

Delta Drawing Room 19.95 

Cosmic Life Room 19.95 

Up for Grabs Room 19.95 



ADVENTURE 

Dishey 29.95 

Ultra Disassembler 29.95 



BRODERBUND 

Bank St, Writer 42,75 

The Print Shop 29,95 

Serpent's Star 24,75 

Spelunker 19,95 

Stealth 19.95 

BUSINESS 

VISICALC $159.75 

LETTER PERFECT R 59 00 

DATA PERFECT $89.75 

FILE MAI^AGER $69 75 

HOME FILE MGR $69,75 



TOLL FREE 1-800-233-8760 



TO ORDER 




CALL TOLL FREE 

800-233-8760 



or send order to 
LyCO Computer 
P O Bo« 5088 
Customer Service 1-717-327-1825 Jersey Shore PA 1 7740 



RISK FREE POLICY 

In-stock ttem shipped within 24 hours of order. No deposit on C.O.D, 
orders Free shipping on prepaid cash orders within the Continental US, 
PA residents add sales tax APO. FPO. and International orders add S5. 00 
plus 3% lor priority mail service Advertised prices show 4% discount for 
cash, add 4% for Master Card or Visa Personal checks require 4 weeks 
clearance before shipping. All items subject to change without notice 
For your protection, we check for stolen credit cards, 
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16K Cassette or 24K Disk 
XL/XE requires Translator 



Atari Writer 
Printer Driver 



by CD. Welker 



Several commercial word processors lack a provi- 
sion for inputting printer codes to function properly 
with third-party printers. 

For example, AtariWriter adequately supports their 
own line of printers, but control codes for third-party 
printers must be imbedded into the text by using a 
CTRL-O command. To initiate underlining on Atari- 
Writer with an Epson printer, the following is re- 
quired: CTF{L-0 27 CTRL-O 45 CTRL-O 49 — a total 
of nine keystrokes. A similiar series is needed to stop 
it. 

After underlining a few reports with a ruler and 
pen, I decided to fix this problem via the AtariWriter 
Printer Driver (or AWPD]. 

The BASIC program given in Listing 1 will create 
an AUTORUN.SYS program that should be booted 
in when you use your word processor. Use printer 
mode 2 with AtariWriter (i.e., the Atari 825 printer 
mode). 

The AUTORUN.SYS program made by the BASIC 
program is compatible with all Atari operating sys- 
tems and with single or double density DOS, since 
it uses relocatable code. 

The program disk is single density and will only 
write the AUTORUN.SYS printer driver onto another 
single density disk. If you have a double density disk 
drive, just transfer the AUTORUN.SYS program to 



a double density disk after making it. The SDCOPY 
option of OSA DOS can be used to do this if you 
have the DOS. 

If you use an RS-232 device, the program to boot 
in this device driver should be appended to the un- 
derliner AUTORUN.SYS program by using the copy 
append fmiction of Atari's DOS. 

The procedure to do this is as follows. First rename 
the 850 interface driver program. If it is now called 
AUTORUN.SYS, change its name to AUTO850.SYS. 
Then transfer the file AUTO850.SYS to the disk that 
contains the AWPD. The printer driver should be 
named AUTORUN.SYS. 

Finally, use the copy append option of Atari DOS 
(i.e., option C] to append the 850 driver to the print- 
er driver as follows. 

C 
AUT0850.5Y5,flUT0RUN.5Y5/A 

The slash-A is needed to append the programs. Don't 
forget it. Also, be sure that you append the 850 driver 
to the printer driver, not the other way around. 

The short program given in Listing 2 may be used 
to check the data input. I recommend that you first 
type in the BASIC program in Listing 1, except for 
the data statements, and save it. Next, type in List- 
ing 2 and use it to check your data input. If your data 
is correct, the second program will list it to disk in 
the file DATA.LST. 

Finally, reload the first part of Listing 1 and enter 
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DATA.LST— 

this will give you 

the complete program, all 

data checked and correct. SAVE 

the program before RUNning it 

Cassette users can type in the cassette 
patch given in Listing 3 and enter it to the ab 
program. The cassette version will make a boot tape 
that will load into page 7 (i.e., LOMEM without 
DOS]. 

The program's source code is given in Listing 4. 
Assembly programmers may want to study it as a 
demonstration of several useful techniques: imple- 
mentation of self-relocating code, a method to JSR 
within relocatable code by modifying the stack, and 
use of long branches. 

Program features. 

The AWPD is designed to work with print option 
2 of the AtariWriter, the option designated for use 
with Atari's 825 printer. This option sends print con- 
trol chai'acters to the printer; the other options do not. 

Third-party printers will be very easj? to use with 
AtariWriter and AWPD. 

The printer driver AUTORUN.SYS program you 
make will activate the following features (assuming 
that your printer has these capabilities): miderlining, 
subscripts, superscripts, expanded, condensed and 
proportional print. 



Other 
modes or print- 
er functions are avai 
able by using the CTRL-O 
key as outlined in the Atari- 
Writer manual. The following spe- 
cial features are provided by AWPD. 

Underline individual words by using the IN- 
VERSE key. Underline words plus blank spaces 
between words by using the [ and ] (SHIFT- 
COMMA and SHIFT-PERIOD) aromid the state- 
ment to be underlined. I added this feature be- 
cause AtariWriter can't print spaces between 
words as inverse characters. 

Compressed print is activated by CTRL-G2 as 
described in the AtariWriter manual. 

Proportional print is activated by CTRL-G3 as 
described in the manual. 

Return to 10 cpi or the default mode selected 
with your printer by using CTRL-Gl. 

Note that AtariWriter doesn't permit you to 
mix condensed print or proportional print with 
10 cpi on the same text line. Also, proportional 
print doesn't work well with AtariWriter and 
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many third-party printers; left margin blanks 
don't print. Try sending a right justify command 
to your printer. 

Expanded print is activated by SELECT E be- 
fore and after the words to be expanded. 

Subscript is activated with the \ (SHIFT-*) 
before and after the words in subscript. 

The first \ will start subscript, and the sec- 
ond will turn it off. I didn't use the procedure 
given in the AtariWriter manual instructions for 
subscript or superscript, because Atari mode 2 
uses half-line spacing or reverse half-line spac- 
ing to print the subscripts, while many other 
printers don't handle the functions in the same 
mamier. 

Superscript is activated via the A (SHIFT- + ) 
before and after the words to be printed in su- 
perscript. As with subscript, the first A will 
turn on superscript, and the second will turn it 
off. 

The Default Mode to be used in word process- 



ing should be selected via your printer's master 
mode command. The default mode can then be 
emphasized pica, italics or whatever you wish. 
The default mode commands you'll enter will 
also turn off compressed and proportional print. 
If your printer doesn't have a default master mode 
command, enter the printer control codes to turn 
off compressed mode. 

Running the Program. 

The BASIC AWPD program will ask you to input 
the printer control codes for each function to be ac- 
tivated. 

First, input the total of printer control numbers re- 
quired for each function (up to 3 maximum), then 
the control codes. Error checking is provided, and 
you'll be asked to confirm the numbers. 

The printer control numbers can be fomid in a ta- 
ble provided in your printer manual. Input the num- 
bers in decimal, not hexadecimal. If your printer 
manual gives its control characters in ASCII (i.e., let- 
ters, etc.), then you'll have to translate them to the 



1-800-328-1226 ORDER TOLL 

^VofdeSS'onlyf ^^ ^'^- ^'^ 10:00-5:30 (CST) 



Minnesota 
1-800-626-2345 

Ask for computer sales 
(orders only) 



SPECIALS 



Pac Man. Star Raiders & pr Atari Joysticks • 30.00 

Pac Man or Star Raiders 1 0.00 

1030 Modem 70.00 

Sparta Dos 30.00 

Atariwriter 40.00 

BMC BM12EUY12" High Res Amber 60.00 

US Doubler from ICD (includes Sparta Dos) 60,00 

5 1/4" SS/DD Disk W/Sleeves (25 Pack) 25.00 

Kraft Single Button Joystick 8.95 

Kraft Switch Hitter Joystick 9.95 

MPP1000E Modem 100.00 

Atari 5200 Joysticks 20.95 

Atari Paddles 14.95 



ORDERING INFORMATION... 

To order, call toll free or send by mail. For faster service use 
your Visa. Master Card or American Express (include card # 
and expiration date), or send a money order or cashiers check. 
Prices shown reflect a 4% discount for cash. Add 4% for credit 
card orders. Aflow 2 weeks for personal checks lo clear Add 
3% (minimum 3.50) for shipping, f^innesota residents add 6% 
sales tax We also ship COD. Return policy: Call Customer 
Service # for RA #. Credit or defective exchange only 



PRINTERS 



BMC BX80 (80 cps. Friction or Tractor Feed. 

Epson Compatible) 209.95 

Epson LX80 219.95 

Epson LX80 Tractor Feed Option 35.00 

Epson FX80 + 349.45 

Epson FX 100 + 539.95 

Epson MX'RXFXSO Ribbons 5.95 

BMC 8X80 Ribbon 7,95 

Cardco AT Pnnter Interface 50,00 

Atan 850 Interface 129,95 



I .LOOK 




We carry all Atari hardware. . . 
Call for prices. 

All software for your Atari is 
available at 25% off suggested 
retail prices. 



Customer Service 61 2-784-681 6 



rS T A ^^ Q A I ET Q 8465 Plaza Blvd. 

Va I /VqV^o^ OML-EZO Minneapolis, MN 55432 
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equivalent decimal numbers. 

If you're really unlucky, the printer manual may 
only give the code as binary numbers. Some Japa- 
nese printers do this. They write manuals that can 
only be understood by an electrical engineer after a 
week of study. 

I've included a table at the end of these instruc- 
tions, to help you convert your printer codes from 
binary or ASCII to the appropriate decimal numbers. 

If your printer doesn't have the printer function re- 
quested by AWPD, you must input a decimal num- 
ber that does nothing when it's sent to the printer. 
I suggest you try the following. 

Type 1 for the number of characters, followed by 
for the control character. The number zero does 
nothing when sent to most printers. 

After you've entered all the control characters, the 
program will request that you insert a freshly for- 
matted disk with DOS. The AUTORUN.SYS program 
will be written to the disk when you press START. 

Be sure that the disk you use doesn't already con- 
tain an AUTORUN.SYS file, since it will be written 
over by the program and lost forever. 

Entering the Codes. 

A few examples follow to clarify the procedure for 
entering control codes. For underlining, input the i_m- 
derscore all control code: 
EPSON 

Stop Underline 

Input 3 for the number of characters 
Followed by: 27,45,48 
Start Underline 

Input 3 for the number of characters 
Followed by: 27,45,49 
OLD-STYLE PRINTERS 

Some limited function printers can only un- 
derline by using the underscore key and back- 
spacing, with no command to stop underlining. 
In these cases, use the following sequence. 
Stop Underline 

Input 1 Followed by: 
Start Underline 

Input 2 Followed by: 95,8 

Default Mode 

Epson Printer 

Input 3 for the number of characters 

Followed by: 27,33,56 

This is the Epson master mode command to 
revert to emphasized pica for high quality print. 
The default mode also tm'ns off compressed print 
and proportional print, when activated by CTRL- 



Gl with AtariWriter. 

If you don't want emphasized pica, change the 
number 56 to the print style you wish. See the 
appendix in your Epson manual. 

Panasonic KX-P1090. 

This printer doesn't have proportional print, 
so enter 1 for the number of characters. 

Followed by: 18 

These numbers turn off condensed print as the 
default mode. 

Smitli Corona TPII. 

This printer doesn't have condensed print or 
proportional print; it's a daisy wheel printer. 
Input 1 for the number of characters 
Followed by: 

Epson example all codes. 



Function Number Control Codes 

Subscript on 3 27,83,49 

Subscript off 2 27,84 

Superscript on 3 27,83,48 

Superscript off 2 2784 

Default mode 3 27,33,56 

Expanded off 3 27,8748 

Condensed on 3 2733,54 

Proportional on 3 27112,49 

Expanded on 3 2787,49 

Underline on 3 2745,49 

Underline off 3 2745,48 



Panasonic KX-P1090 all codes. 



Function Number 

Subscript on 3 

Subscript off 2 

Superscript on 3 

Superscript off 2 

Default mode 1 

Expand off 3 

Condensed on 1 

Proportional on 1 

Expanded on 3 

Underline on 3 

Underline off 3 



Control Codes 

2783,1 

2784 

2783,0 

2784 

18 

27870 

15 



27871 

2745,1 

2745,0 



Smith Corona TPII all codes. 



Function 

Subscript on . . . 
Subscript off , . . 
Superscript on . 
Superscript off . 
Default mode . . 
Expanded off . . 
Condensed on . 
Proportional on 
Expanded on . . 
Underline on . . 
Underline off . . 



Numbe 




fcontinued on next page) 
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How it works. 

The underliner program operates by intercepting 
characters sent to the printer before they reach their 
destination. Checks are made to determine if com- 
mand codes are sent. For example, AWPD looks for 
the miderline and stop underline key flags. 

If the command to start underlining is sent to your 
printer, then your print control commands are sent 
instead of the bracket. 

The AtariWriter sends a character to your printer 
through the CIO [Central Input/Output) routines. This 
operates through a series of subroutines that handle 
the actual mechanics of sending data to your printer, 
screen, disk drive, etc. 

The location and functions of these worker rou- 
tines differ in the Atari 800, 800XL and 1200 com- 
puters. Consequently, a system of pointers or vectors 
were provided by Atari, to keep track of the location 
of these routines In the several operating systems. 

The handler table is the master index to the sys- 
tem of subroutines that handle various devices which 
can be hooked up to your computer. It serves as an 
index to a table of contents. 

The handler table is located at decimal 794 in all 
Ataris. The device entry tables are in different lo- 
cations. 

The structures of the handler table and printer en- 
try point table are shown in Figures 1 and 2. 



HANDLER ADDRESS TABLE 



Address Data 

$031 A 50 

$031B 30E4 

$031D 43 

$031E 40E4 

$0320 45 

$0321 00E4 

$0323 53 

$0324 10E4 

$0326 4B 

$0327 20E4 

The remaining locations are used for 
DOS 850 module and user routines. 



Device 

P Printer 
Entry point 

C Cassette 
Entry point 

E Editor 
Entry point 

S Screen 
Entry point 
Keyboard 
Entry point 



K 



Figure 1. 



PRINTER ENTRY POINT TABLE 
ATARI 800 

Address Data Function 

$E430 9E EE Open 

$E432 DB EE Close 

$E434 90 EE Read 

$E436 A6 EE Write 

$E438 80 EE Status 

$E438 90 EE Not used 

$E43C 4C 78 EE Initialize 

Figure 2. 



Note: the hex addresses in the handler table are 
stored in low byte/high byte order. They must be re- 
versed to be understood. The addresses given in the 
entry point table indicate the worker subroutine mi- 
nus one, for technical reasons dealing with the stack 
and its handling of jump subroutine statements. 

Machine language program. 

When you boot in the maderliner disk, the AUTO- 
RUN.SYS program is called by DOS and is activated 
before control is returned to the AtariWriter car- 
tridge. During this initiation sequence, the program 
does several things. First, it reads the handler table 
from the bottom up, to find the your computer's ad- 
dress for the printer entry point table. 

It then reads the entire entry point table in your 
OS and sticks the addresses in a table located at the 
bottom of the stack in page 1. 

Next, the segment of code that does the work of 
converting the codes from AtariWriter's 825 printer 
to your printer's codes is relocated to LOMEM. The 
LOMEM pointer is changed to protect the program. 
The addresses in the handler table are changed to 
point to this program, and finally, control is returned 
to AtariWriter. 

Printer driver code. 

The handler table tells the CIO to send the charac- 
ters to the "printer driver" program, where they're 
processed. Each character byte is examined in a mi- 
crosecond or two, to determine if it's an escape char- 
acter or a flag key to start or stop underlining. 

If it is an escape key, it and the next character are 
sent to the OS write routines without modification. 
The program also checks for the carriage return to 
temporarily turn off underlining, until the left mar- 
gin blanks are printed. 

Customizing tlie program. 

The AtariWriter mode 2 is the only mode that au- 
tomatically sends out printer control characters. It 
sends out half-line spaces for top and bottom mar- 
gins. The printer driver divides them in half and 
sends out standard line feed signals. 

The underline fmiction is performed by transmit- 
ting a command to underline before each inverse 
character and one to stop underlining after the charac- 
ter. Consequently, spaces between characters cannot 
be underlined using inverse. 

The data below gives the series of printer control 
signals sent out by mode 2 for the top margin and 
after each carriage return for the left margin. The pro- 
gram will transform these characters to your printer 
control characters. 
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PRINT CONTROL CHARACTERS 
SENT BY MODE 2 

TOP MARGIN 

$1B,$13 Select 10 cpi 

$0E Stop underline 

$1B,$0F Stop double wide print 

$1B,$1C Half-line feeds done 12 times for 6 lines 

$1B,$13 Select 10 cpi 

$0E Stop underline 

$1B,$0F Stop double wide print 



Well, that's all there is to it. I hope the AtariWriter 
Printer Driver will make your future use of Atari- 
Writer more enjoyable. D 







BINARY TO DECIMAL CONVERSION TABLE 
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1 
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1 
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1 


4321 




























0000 







16 


32 




48 




64 




80 




96 


112 


0001 




1 


17 


33 




49 




65 




81 




97 


113 


0010 




2 


18 


34 




50 




66 




82 




98 


114 


0011 




3 


19 


35 




51 




67 




83 




99 


115 


0100 




4 


20 


36 




52 




68 




84 


100 


116 


0101 




5 


21 


37 




53 




69 




85 




01 


117 


0110 




6 


22 


38 




54 




70 




86 


102 


118 


0111 




7 


23 


39 




55 




71 




87 


103 


119 


1000 




8 


24 


40 




56 




72 




88 


104 


120 


1001 




9 


25 


41 




57 




73 




89 


105 


121 


1010 




10 


26 


42 




58 




74 




90 


106 


122 


1011 




11 


27 


43 




59 




75 




91 


107 


123 


1100 




12 


28 


44 




60 




76 




92 


108 


124 


1101 




13 


29 


45 




61 




77 




93 


109 


125 


1110 




14 


30 


46 




62 




78 




94 


110 


126 


1111 




15 


31 


47 




63 




79 




95 


111 


127 


DEC H 


EX 


CHAF 


DEC 


HEX CH 


IVR DEC 


: HEX c 


HAR D 


EC 


HEX 


CHAR 


1 


1 




33 


21 






65 


41 


A 




97 


61 


a 


2 


2 




34 


22 


» 




66 


42 


B 




98 


62 


b 


3 


3 




35 


23 


# 




67 


43 


C 




99 


63 


c 


4 


4 




36 


24 


$ 




68 


44 


D 




00 


64 


d 


5 


5 




37 


25 


"/ 




69 


45 


E 




01 


65 


e 


6 


6 




38 


26 


& 




70 


46 


F 




02 


66 


f 


7 


7 




39 


27 


r 




71 


47 


G 




03 


67 


9 


8 


8 




40 


28 


( 




72 


48 


H 




04 


68 


h 


9 


9 




41 


29 


) 




73 


49 


1 




05 


69 


i 


10 


A 




42 


2A 


* 




74 


4A 


J 




06 


6A 


j 


11 


B 




43 


28 


+ 




75 


40 


K 




07 


6B 


k 


12 


C 




44 


20 


, 




76 


4C 


L 




08 


60 


1 


13 


D 




45 


2D 


_ 




77 


4D 


M 




09 


6D 


m 


14 


E 




46 


2E 






78 


4E 


N 




10 


5E 


n 


15 


F 




47 


2F 


/ 




79 


4F 







It 


6F 





16 1 





LP 


48 


30 







80 


50 


P 




12 


70 


P 


17 1 


1 




49 


31 


1 




81 


51 


Q 




13 


71 


q 


18 1 


2 




50 


32 


2 




82 


52 


R 




14 


72 


r 


19 1 


3 




51 


33 


3 




83 


53 


S 




15 


73 


s 


20 1 


4 




52 


34 


4 




84 


54 


T 




16 


74 


1 


21 1 


5 




53 


35 


5 




85 


55 


U 




17 


75 


u 


22 1 


6 




54 


36 


6 




86 


56 


V 




18 


76 


V 


23 1 


7 




55 


37 


7 




87 


57 


w 




19 


77 


w 


24 1 


8 




56 


38 


8 




88 


58 


X 




20 


78 


X 


25 1 


9 




57 


39 


9 




89 


59 


Y 




21 


79 


y 


26 1 


A 




58 


3A 






90 


5A 


Z 




22 


7A 


z 


27 1 


B 


ESC 


59 


3B 






91 


5B 


1 




23 


78 




28 1 


c 




60 


30 


< 




92 


50 






24 


70 




29 1 


D 




61 


3D 


= 




93 


5D 


1 




25 


7D 




30 1 


l 




62 


3e 


> 




94 


5E 






26 


7E 




31 1 
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63 


3F 
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95 


5F 
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32 2 
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40 
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96 


60 






28 
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XL/XE REQUIRES TRANSLATOR 

To Lise the AtariWriter Printer Driver on XL 

and XB computers, you must use a "translator" 
program, like the Atari Translator disk or the 
Home-made Translator m this issue. 



Listing 1. 
BASIC listing. 



Table 1. 



310 

320 

330 

DE" 

335 

336 

337 

340 

350 

355 

360 

370 

372 

373 

374 

375 

380 

390 

400 

410 

420 

430 

440 

450 

4o0 

470 

480 

490 

500 

510 

520 

530 

540 

550 

555 

560 

570 

580 

590 

600 

610 

620 

630 

640 

G5 

650 

660 

670 

680 

690 

700 

710 

720 



725 

730 



740 

750 

ee 

760 
770 
775 
780 
790 



REM PRINTER DRIVER MAKER 
REM BY CD. MELKER 
GRAPHICS 17:? tt6:? tt6;" 
? «6;" PRINTER DRIVER" 
tt6;" FOR ATARI WRITER- 
MODE II" 



HOME MA 



tt6;" 

ne 

tt6 
tt6 
tt6 
tt6 
tt6 
tt6 
tt6 



? tt6! 



BY c.d.welkcr":? tt6 



INITIALIZING 
PLEASE MAIT= 



INITIATE STRINGS PART II 



? tt6: "INPUT CON TROL NUMBER" 
■IN DECIMAL OHILhEX":? tt6 
■ INPUT NUMBERS" 
. _. ■ IF PRINTER DOESN'T" 

? tt6:" HAVE THE FUNCTION" 

? t»6;" REQUESTED" 

REM 

STSIZE:=613 

DIM AS(STSIZE3,B5{3J,CS(3J,D$(3) 

DIM JSRS (33 , JMP$ (3) , E$ tl) , UARS (35 

DIM FUNCT:S(40] 

DIM 0K5(3} 

REM INITIALIZE STRINGS 

ES=CHR$ (2343 : REM i - HOP 

AS= AS(STSIZE3=A5:fl5(23=AS 

B5=ES : 85 (33 =BS : B5 (23 -BS 

CS=b5:UAHS=BS 

DS="0" : DS (33 =D5 : DS (23 ::D5 

JSR$(1,13=CHR$(323 

JSR$(2,23=CHR5(163 

JSRS(3,33=CHR$(13 

JMP5(1,13=CHR$(763 

JMP$(2,23=CHR5(163 

JMPS(3,33=CHR5(13 

SIZE=241:CLA5S=1 

RESTORE 

REM MKMKICKMICMMICKMKMKICMMICMMICMICKMK 

REM 
REM 
REM 
HEM MMKWKKmClCKlCKKKlCKlCKKKKKMMKMMK 



START CONTROL BLOCK 



READ DATA TO A: 



GOSUB 1820: REM 

REM MKMICMKIOCICKKKKKKMMKKKKMICICMKM 
REM FLAG=l:CLASS=l:REM USED AS FLA 



REM FLAG CONTROLS ORDER IN MHICH 
REM THE STRING IS SEARCHED 
REM CLASS STRIPS OFF ESC OR ADDS 
REM "1" AFTER ESC, DOE S NOTHING 
FUNCTS-" MH;Mii:HaHiMii:i" ! GOSUB 900 
FUNCTS=" tail ; VIH;><aMila j" ; GOSUB 900 
FUNCTS::" riiiaa;MJ!liiaijliri" : GOSUB 900 
FUNCT5=" HilaJ;HH;KafcMiia3 " : GOSUB 90 



CLASS=2 
FUNCT5=" 

FUNCTS=" 
FUHCTS=" 

FUNCTS=" 

FUNCTS=" 

CLASS=1 

FUNCTS="' 

FUNCTSi:"! 



SET DEFAULT MODE 



": GOSUB 90 



EXPAND MODE OFF 
CONDENSED MODE ON 



l^ilGOSUB 900 
■: GOSUB 9 



PROPORT MODE ON 
EKPAND MODE ON^ 



!": GOSUB 900 
GOSUB 900 



UNDERLINE 0N_ 
UNDERLINE OFF 



: GOSUB 900 
I": GOSUB 900 
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Q 



Printer Driver 



continued 



830 BEM MKKKMKMlOCXMK XKKXKKKKKH -JHHBt* 

840 GO TO 1070: REM : \iwA;m'Vtttinn:wnv^ 

850 BEM MMMKMKKMWKWHKMMKltKMKMKKMKMMK 

860 REM 

870 BEM 

880 REM 

890 REM MKKXMMICKICKMKKICICKMMMKKKMMKMM 

900 VflRS=BS:0K5=D5;C5=BS:G05UB 1160 
910 TRAP S2767 

920 BEM MKMKKKKMMKKKMMMXMXMMMKXMKKM 

930 BEM 
940 REM 
950 BEM 

960 REM KKKKKKXXKXKKXKKXXKXKXKKXXX 

970 TRftP 980 

980 605U B 1420 

990 REM 

1000 IF 0KSC1,1}="V" or 0K5(l,lJ="y" T 

HEN G05UB 1050: RETURN 

1810 GOTO 900 

1820 REM XXXXXXXXXXXXXXXXXXXX XXMXXXXXM 

1030 REM > I ;M^;lM.Vii tjMlMiK IjT-Tjra 

1840 REM :IF CLflSS=2 STRIP ESC OR +1 

1850 IF CLflSS=2 THEN GOSUB 2288 

1860 TRAP 1878: GOSUB 1548: RETURN 

1870 GOSUB 1980: REM MAKE AUTORUN.SVS 

1888 END 

1890 REM [HE HH Hiimrra IHWim 

REM XXXKKKKXXKKKKKXKKXXK 



REQUEST PRINTER CONTROLS 



CONFIRM PRINTER CONTROL 



IF OK INSERT BYTES TO A: 



INSERT BYTES INTO STRINGA 



XXXKXXXK 



REQUEST PRINT CONTROLS 



1100 REM 
1110 REM 
1120 REM 
1130 REM 
1140 REM 
1150 REM POKE 752,1 DISABLES CURSOR 

POKE 783,4 GIUES A TEKT MINDOH AT BTM 
1168 GRAPHICS 1:P0KE 752,1:P0KE 783,4 
1170 PRINT 1*6;"' INPUT THE PRINTER" 
1188 PRINT tt6;" CONTROL CHARACTERS" 
1198 PRINT tt6;" FOR" 
1200 PRINT »6;" ";FUNCTS:PRINT tt6 
1210 PRINT M6;" 3 NUMBERS MAK" 
1228 PPIHT US 

1230 PRINT »6;" FIRST GIVE TOTAL" 
1240 PRINT 06;" NUMBER OF " 
1244 PRINT tl6;" CHARACTERS" 
1258 PRINT »6 

1268 PRINT «6;" THEN EACH CHARACTER" 
1278 PRINT tt6;" AS REQUESTED" 
1280 TRAP 1360 

1290 PRINT "INPUT TOTAL NUMBER OF CHAR 
ACTERS="; : INPUT N 

1292 IF N<=3 THEN 1300 

1293 ? CHRSC253};"0NLV 3 CHARACTERS PL 
EASE " 

1294 GOTO 1298 
1300 FOR 1=1 TO N 

1310 PRINT "INPUT CONTROL CHAR NUM ";I 

■ SI— HI a 

i320 INPUT K2 

1330 UARStl,I)=CHRStH2) 

1340 NEKT I 

1350 RETURN 

1360 TRAP 1360: PRINT "OOPS! INPUT ERRO 

R TRY AGAIN": GOTO 1290 

1370 REM KKKXKXKXXKKKKMXXKKKXKKMKXXK 

1380 REM 

1390 REM 

1408 REM 

1418 REM KKKXXXXXKXMXXXKXKKXXXXXXXXX 

1428 GRAPHICS 1:PRINT tt6;:PRINT «6;" T 

HE VALUES INPUTTED" :PRINT «6 ; " "JFUNCT 

5:PRINT «6;" ARE AS FOLLOWS:" 

1430 PRINT tt6: PRINT it6 ; " BYTE 1= "JASC 

fVAR$} 

1440 IF N>1 THEN ES=MAR5 C2 , 2} : PRINT a6 

;" BYTE 2- "jASCfESj 

1450 IF N>2 THEN ES=UAR5 t3, 3J : PRINT »6 

... gyjE 3- "jftSCfESj 



CONFIRM CONTROL BYTES SUB. 



1460 ? :? "IS THIS CORRECT (YES/HO) : 
; : INPUT 0K5: RETURN 

1470 REM KXXKKXKXKXXXKXXXXXXKXXKXKXK 

1480 REM 

1490 REM 

1500 REM 

1510 REM KKKKKKKXKXKKKXXKKXKXXXKKXKX 

1520 REM SEARCH STRING A$ FROM BACK TO 

FRONT TO FIND THE CPYtl BYTE THEN 

1530 REM ADD THE CONTROL FUNCTIONS 

1540 J=1:DUM=H 

1550 REM ON FLAG GOTO 1570,1560 

1560 FOR I=SIZE TO STSIZE 

1580 ES=ASCI,I} 

1590 UALUE=ASCCESJ 

1600 IF UALUE=192 THEN 1628: REM CPY 

1610 NEXT I 

1620 POP :SIZE=Itl4:REM FOUND CPY 

1630 aS tl, 15 =CHRS tl693 : 1=1+1: REM LOA» 

1640 A$(I,I}=VAR5C1,13 

1658 IF DUM=1 THEN GOTO 1758 

1668 ASCI+1,I+3}=JSR5:REM JSR=3BYTE 

1678 1=1+4 

1688 AS{I,IJ=CHRS(169J :I=I+l:REM LDAtt 

1698 AStI,IJ=VARSC2,2J 

1780 IF DUM=2 THEN GOTO 1750 

1710 AS(I+1,I+33=JSR5 

1720 1=1+4 

1738 AS(I,I}=CHRS{169}:I=I+l:REM LDAIt 

1740 ASCI,IJ=UARSC3,3) 

1750 AS{I+1,I+33=JMPS 

1760 RETURN 

1770 REM XXXXKXMXKKKXKKXXKKXKKXXKKM 

1780 REM 

1790 REM SUBROUTINE TO READ ML TO AS 

1800 REM 

1810 REM KXXXKXXKKXKXXWKKXXXKKXXKKM 

1820 TRAP 1920 

1830 J=l 

1840 FOR 1=1 TO 18 

1850 READ BYTE 

I860 ES=CHRSCBYTEJ 

1870 AS{J,J)=ES 

1880 J=J+1 

1890 NEXT I 

1900 READ TOTAL 

1910 GOTO 1848 

1920 RETURN 

1938 REM XKKKKKKXXXKKKXXXKKXKXXXKX 

1940 REM 
1958 REM 
1960 REM 

1970 REM XXXXXXXKKXKKXKKKXXXKXXKKKKK 

1980 GRAPHICS 17: PRINT tt6: PRINT tt6;" I 
NSERT A FORMATED": PRINT tt6;" DISK WITH 

DOS" 

1990 PRINT tt6: PRINT 116;" PRESS aOEEB 03 

aa": PRINT tt6;" TO CONTINUE" 

2000 PRINT no: PRINT tt6;" AN AUTORUN.SY 

5 FILE": PRINT tt6;" WILL BE MADE" 

2010 START=PEEKt53279J :IF START06 THE 

N 2010 

2020 GRAPHICS 17: PRINT tt6: PRINT «6;" 

MAKING": PRINT «6 ; "AUTORUN . SYS FILE" 
2838 CLOSE tt2:0PEN tt2,8,8, "D: AUTORUN.S 
YS" 

2848 TRAP 2898 
2858 FOR 1=1 TO STSIZE 
2860 ES=AS(I,IJ 
2870 PUT H2,ASC(E5J 
2888 NEXT I 
2890 CLOSE tt2 

2100 GRAPHICS 17:PRINT SO : PRINT tt6;" T 
HE AUTORUN. SYS":PRINT tt6;" FILE IS MAD 
E" 

2110 PRINT «6;" HAVE FUN " 
2120 FOB J=l TO 688:NEKT J 



MAKE AUTORUN.SVS FILE 
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2130 EMD 

2140 RETURN 

2150 REM KKKKKKKKKMKKMMKKKKlCMlClCKKlt 

2160 REM 

2170 REM STRIP ESC OR ADD 1 SUBROUTIN 

2180 REM 

2130 REM KMKMKMICKKMKKMKKMKMMKKMKMK 

2200 CS=yARS 

2210 IF UAR5(l,l)=CHRSf27) THEN 2290 

2220 REM MAKE FIRST CHAR 1 

2230 N=M+1 

2240 yARS(l,l)=CHRStlJ :REM =S01 

2250 UARSC2,2}=CS{1,1} 

2260 UARSt3,3)=CSC2,2} 

2270 RETURN 

2280 REM STRIP OFF ESC 

2290 H=N-1 

2300 UARSC1,1)=CSC2,2J 

2310 UARSC2,2J=CSt3,3) 

2320 yARSt3,3}=CHRS(2343 :REM NOP 

2330 RETURN 

5000 DATA 255,255,0,46,82,48,160,34,18 

5,25,90 

5010 DATA 3,201,80,240,3,136,208,246,1 

40,28,367 

5020 DATA 1,56,185,26,3,233,1,133,204, 

200,409 

5030 DATA 185,26,3,133,205,169,0,133,2 

06,169,638 

5040 DATA 1,133,207,160,15,177,204,145 

,206,136,22 

5050 DATA 208,249,173,231,2,141,34,1,1 

73,232,466 

5060 DATA 2,141,35,1,172,20,1,169,1,15 

3,161 

5870 DATA 26,3,200,169,1,153,26,3,24,1 

73,939 

5080 DATA 7,1,105,1,141,17,1,173,8,1,3 

94 

5090 DATA 105,0,141,18,1,56,173,34,1,2 

33,156 

5100 DATA 1,141,7,1,173,35,1,233,0,141 

,889 

5110 DATA 8,1,169,76,141,16,1,169,142, 

141,753 

5120 DATA 24,1,169,1,141,25,1,24,173,2 

4,336 

5130 DATA 1,109,34,1,141,231,2,173,35, 

1,64 

5140 DATA 109,25,1,141,232,2,169,0,141 

,26,910 

5150 DATA 1,141,27,1,141,24,1,141,25,1 

,413 

5160 DATA 141,20,1,141,21,1,169,197,13 

3,204,441 

5170 DATA 169,46,133,205,173,34,1,133, 

206,173,714 

5180 DATA 35,1,133,207,162,1,160,0,177 

,204,794 

5190 DATA 145,206,136,208,249,230,205, 

230,207,202,812 

5200 DATA 240,242,96,141,22,1,201,27,2 

08,11,1 

5210 DATA 169,1,141,24,1,173,22,1,76,1 

6,625 

5220 DATA 1,173,24,1,201,1,240,98,173, 

22 559 

5230 DATA 1,201,15,240,93,201,14,240,9 

1,201,856 

5240 DATA 92,208,49,173,28,1,201,1,240 

,21,870 

5250 DATA 169,1,141,28,1,192,27,234,23 

4,234,131 

5260 DATA 234,234,234,234,234,234,234, 

234,234,234,471 

5270 DATA 234,169,0,141,28,1,192,27,23 

4,234,731 



5280 DATA 234,234,234,234,234,234,234, 

234,234,234,71 

5290 DATA 234,234,201,94,208,56,173,30 

,1,201,503 

5300 DATA 1,240,29,169,1,141,30,1,192, 

27 , 334 

5310 DATA 234,234,234,234,234,234,234, 

234,234,234,674 

5320 DATA 234,234,234,24,144,6,240,98, 

240,92,220 

5330 DATA 240,92,169,0,141,30,1,192,27 

,234,346 

5340 DATA 234,234,234,234,234,234,234, 

234,234,234,686 

5350 DATA 234,234,201,91,208,9,169,1,1 

41,36,10 

5360 DATA 1,169,0,248,57,201,93,208,7, 

169,155 

5370 DATA 0,141,36,1,240,48,201,32,208 

,3,65 

5380 DATA 76,16,1,173,36,1,201,1,208,2 

6,804 

5390 DATA 24,173,34,1,105,212,141,20,1 

,169,684 

5480 DATA 0,109,35,1,141,21,1,72,173,2 

0,257 

5410 DATA 1,72,169,0,240,6,173,22,1,76 

5420 DATA 16,1,240,121,240,121,169,0,1 

41,24,90 

5430 DATA 1,173,22,1,201,19,208,15,192 

,33,955 

5440 DATA 234,234,234,234,234,234,234, 

234,234,234,295 

5450 DATA 234,234,234,201,15,208,15,19 

2,87,234,949 

5460 DATA 234,234,234,234,234,234,234, 

234,234,234,289 

5470 DATA 234,234,201,28,288,32,173,26 

,1,281,627 

5480 DATA 1,208,15,169,0,141,26,1,169, 

1,358 

5490 DATA 32,16,1,169,10,76,16,1,169,1 

,849 

5500 DATA 141,26,1,169,1,76,16,1,201,2 

0,501 

5510 DATA 208,15,192,33,234,234,234,23 

4,234,234,353 

5520 DATA 234,234,234,234,234,234,234, 

201,17,208,417 

5530 DATA 18,192,112,234,234,234,234,2 

34,234,234,377 

5540 DATA 234,234,234,234,234,240,24,2 

40,37,201,289 

5550 DATA 14,208,15,192,87,234,234,234 

,234,234,975 

5560 DATA 234,234,234,234,234,234,234, 

234,76,16,939 

5570 DATA 1,192,27,234,234,234,234,234 

,234,234,797 

5580 DATA 234,234,234,234,234,234,192, 

27,234,234,888 

5590 DATA 234,234,234,234,234,234,234, 

234,234,234,228 

5600 DATA 234,224,2,225,2,196,46,226,2 

,227,612 

5605 DATA 2,0,46 

5610 REM * 613 BYTES 



(CHECKSUM DATA and assembly listing 

start on page 85] 
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ATARf 



POWER WITHOUT THE PRICE 
AT. . .COMPUTER CREATIONS 



ATARI HARDWARE 



COMPUTERS 




COMPUTERS 




> Alan 800 XL 


CALL Alr 


n 130 ST 




FOR 


NEW Ala 

CES 


n 520 ST 


Atari 130 XE 


PRI 






DISK DRIVES 




; Atari 1050 


CALL 


Atari SF 324 13' .■■ floppy id 


isk250Kl 


Indus GTIFree Soitware) - 


FOR 


Atari SF 354 (3' /■ floppy disk 500K) 


Aslia2001 


NEW 


Atari SH 317 (3V hard disk 10 MB) 


Astra ■■Big D^ 


PRICES 


... Happy Enhancemen 


t for Atari 






310 and 1050 Drives 


' PRINTERS 




MONITORS 




Atari XTM 201 INon-impact 




Atari XC 1 4 1 ( 1 4^^ Composite 




Dot r^atrix 20 CPS) 




Color) 




Atari XTC 201 (Color, non- 




Atari XM 148 (12^^ 


CALL 


; impact Dot Matrix 




Monochrome, 80 column 


FOR 


20 CPSI 




low resolution) . . . 


PRICES 


Atari XDlvl 121 iDarsy Wtieel 




Alan SM 124 (12^' 




Letter Quality 12 CPSI 


CALL 


Monochrome. 80 column. 




Atari XrulM 801 (Dot l^atrix. 




high resolution) 




' Impact 80 CPSI 


FOR 


Atari SC 1 224 1 1 2^^ RGB Colort 




Atari 1025 (Dot Matrix. Impact 




Sanyo 1 2^^ Green Screen 


79 


CPSI 


NEW 


Sanyo 1 2" Amber Screen , ,, 


79 


Atari 1 027 (Letter Quality) 




Sanyo Color Screen, 13'^ 


209 


. Alan ST 504 (Color Dot Matrix. 


PRICES 


Monitor Cable 


7 


non-impact 50 CPS) 




Teknika 1 3"^ Color MJ 10 


209 



Call For 



EPSON PRINTERS 

LX-80 (80 column) 

LX-80 Tractor Feed Printer S 

Epson FX-80+ (80 column) Interface 

Epson RX 100+ (135 col, I Packages 

STAR MICRONICS PRINTERS 

SG-10(80 columni 

SG-15(136 column) ,,, CALL 

SD-10 (80 column) , FOR 

SD-15(136 columni PRICES 

SR-10 (80 column) 

SR-15 1136 column) 

SB- 10 

Powertype Daisywheel 

Powertype Tractor Feed 

PANASONIC PRINTERS 

KX-1090 Call 

KX- 1091 For 

KX-1092 Prices 

LO- 3151 

Okimate 10 plus plug n' print 

PRINTER INTERFACE CABLES 

MPP-Microprint 49 

MPP-1 150 Parallel Printer 

Interface 65 

U-Print A 75 

A-16 Interface/Buffer 99 

APE Face XLP 65 

APE Face 12XLP 75 

Microbits Microstuffer 1 09 

PRINTER RIBBONS 

Gemini Printers (Black/Blue/ 

Red/Purple/Brn,/Grn,) 5 

Epson Printers 8 

Panasonic Printers, Black 10 

Panasonic Printers, Color 13 



MODEMS 

Atari 1030 Direct 300 Band 

Connect CALL 

Atari XM 301 Direct FOR 

Connect 300 Band , PRICES 

MPP-1000E Modem , 89 

Signalman Mark XII Modem with 

R-Verter 299 

Mark X with R-Verter 169 

CompuServe Starter Kit 24 

UPGRADES/ 
ACCESSORIES/BOOKS 



ACCESSORIES 

Flip n- File 10 

Flip n' File 15 

Original Flip n' File 50 , 

Flip n' File Carl Case 

Library Cases( 1 colorsi 

Disk Bank/5 (Holds 501 

Disk Bank (Holds 101 

Power Strip (6 outlet) 

Lineguard Spike Suppressor 

Disk Drive Cleaning Kil 

MtcroMate Paper 
I20ff , 540 sheets I 

Computer Paper 
(15#, 3200 sheets I 

Printer Stand (wire) 

Dust Covers Call lor aval 

UPGRADES: 

Ram Rod X/L W/Omnimon 

Omniview for 800 XL 

B I, 80 Column Adaptor ,, 

US, Doubter 

MPP 64 K 

BOOKS: 

Lg selection ot titles avai 



4 

7 

, 14 

12 

4 

12 

, 5 

16 

, 13 

13 

10 

30 
15 

lability 

99 

, 49 

Call 

,, 59 

. 69 




GENERIC DISKS AT FANTASTIC PRICES! 

SS/DD GENERIC DISKS AS LOW AS 990 ea. 
Generic 100% Defect-Free/Guaranteed. 

Includes sleeves, labels, write protect tabs, reinforced hub rings, lifetime 
warranty, (2 boxes minimum) 



DISKETTES 2 boxes 

(2 bx, minimum) 3 - 6 boxes 

10 per box 7-10 boxes 

MORE THAN 10 BOXES . 



SS/DD 
S1 1.99 
$10.99 
S 9.99 
. . CALL! 



DS/DD 
$13.99 
$12.99 
$11.99 



■* • DEALER INQUIRIES INVITED * • 



COMPLETE LINE OF ATARI SOFTWARE 



SOFTWARE 

EPYX 

Dragonriders of Pern (D) 21 

Summer Games 28 

PilsloplllDl 28 

Ballblazer (D) 28 

Rescue on Fractalus (Dl .28 

Temple of Apshai (D) . .21 

ACCESS 

Beach Head (D| 24 

ACTIVISION 

Decathalon (R) 

Pitfall II IR) 



21 
21 

Space Shuttle (R) 21 

Ghost Busters (D) 24 

AMERICAN EDUCATIONAL 

Spelling Grades 2 thru 8 (D) , 15 
Reading Comprehension (D) , 19 

BATTERIES INCLUDED 

Paperclip (D) 41 

Homepak 35 

B/Graph Call 

BRODERBUND Home Pak 

Piinlship (Di 31 

Spelunkej iD) 21 

Stealth (D) 21 

Whistlers Brothei (D) 21 

CBS 

Call lor items and prices 
CONTINENTAL 

Home Accountant (D) , 50 

DATASOFT 

Bruce Lee 28 

Dallas Quest 24 

Conan 28 

Letler Wizard 52 

ELECTRONIC ARTS 

Archcn (D) 18 

Pinball Construction (D) 18 

M U L E (D) 18 

Murder/Zinderneuf (D) 18 

25 
25 
18 
18 
14 
25 
29 
18 



One on One (D) 

Archon II (0) 

Music Construction (D) 

Realm/Impossibility (D) 

Hard Hat Mack 

Seven Cities of Gold 

Adventure Construction Set 
Cul and Paste 



INFOCOM 

Cul Throals(D) 24] 

Deadline (D) 31 

Enchanter (D) 24 

Hitchhiker^s Guide to 

the Galaxy (D) 24 1 

lnfidel(D| 28 

Planetlall(D) 24 

Sea Stalker (D) 24 

Sorcerer (D) 28 i 

Starcross(D) 31 

Suspect (D) 28 

Suspended (D) 31 

Witness (D) 24 

Zork I (D) 24 i 

Zork II or III (D) 28 

Invisiclues Hint Books 7 

MICROPROSE 

F- 15 Strike Eagle (Dl 24 

Mig Alley Ace (Dl 24 

Solo Flight (D) 24 

OSS 

Action IRI , 62 

Action Tool Kit (D) 25 1 

Basic XL (H) 50 

DOS XL (0) 25 

MAC/65 IRI 62 

MAC/65 Tool Kil (Dl 25 

Writer's Tool Kit 62 

ORIGIN 

Ultima III ID) 42 

SCARBOROUGH 

Maslertype 28 

Net Worth 55 

SIERRA ON LINE 

Ultima I 24 

Ultima II 41 

SPINNAKER 

Call lor items and prices 

SYNAPSE 

Quasimodo 17 

14 

35 



Alley Cat 

Syn-File + 

Syn-Calc 35 

Syn-Trend 

Syn-Comm 

Syn-Slock 

Mindwheel 



28 

28 

28 

Call 

Essex Call 

TRONIX 

S,A,M 42 

Chalterbee 28 



To order call TOLL FREE 

1-800-824-7506 



' No extra cbarge 
for MasterCard 



ORDER LINE ONLY 



COMPUTER CREATIONS, Inc. 

P.O. BOX 493 - DAYTON, OHIO 45459 



For information call (513) 435-6868 (Or to order in Ohio) 

Order Lines Open 8:30 a,m. to 9:00 p.m. Ivlon.-Fri.: 1 a.m. to 4:00 p.m. SaL (Eastern Standard Time). (Vlinimum $1 per order COD (add $3 00) Call toll free 
number to verify prices and availability of product. Actual freight will be charged on all hardware. Software and accessories add $3 00 shipping and ha'ndling in 
Continental United Stales. Actual freight will be charged outside U.S. to include Canada, Alaska. Hawaii. Puerto Rico and APO. Ohio residents add 6% sales tax 

Fonmmediatedeliverysendcashier'scheck, money orderordireclbanktransfers.Personafandcompanychecksallowaweekstoclear. School purchaseorders 
welcome. Due to our low prices, all sales are final. NO CREDITS. All defective returns must have a return authorization number. Please call (613) 435-6868 to 
obtain an RA# or your return will not be accepted for replacement or repair. 



rfta 



^te 



rffa 



rfta 



CIRCLE #137 ON READER SERVICE CARD 



Q 



Printer Driver 



continued 



CHECKSUM DATA. 

(see page 24] 



CHECKSUM DATA. 

(see page 24) 



318 DATA 137,147.953,839.638,982.687,2 
72,518,840,173,445,851.630,765,8857 
388 DATA 641,974,252,440,349,653,775,9 
96 , 999 , 247 , 144 , 211 , 846 , 850 , 686 , 8983 
538 DATA 861,849,605,736,905,568,186,5 
84 , 84 , 552 , 332 , 361 , 588 , 38 , 285 , 7438 
678 DATA 879.828.285,973,14,558,543,38 
1,829,111,849,952,555,732,276,8765 
838 DATA 365,980,568,186,881,112,383,3 
76 , 844 , 364 , 99 , 530 , 105 , 560 , 767 , 6960 
980 DATA 835,467,447,887,600,265,788,2 
05 , 320 , 948 , 261 , 532 , 785 , 279 , 234 , 7853 
1130 DATA 281,789,850,801,664,625,29,2 
02 , 883 , 903 , 446 , 374 , 649 , 906 , 716 , 9118 
1270 DATA 741,688,954,894,515,739,223, 
669 , 964 , 755 , 497 , 793 , 891 . 559 , 292 , 10174 
1390 DATA 559,287,556,598,365,25,37,36 
4 , 562 , 295 , 652 , 298 , 559 , 509 , 919 , 6577 
1540 DATA 881,74,776,817,425,394,503,6 
18 , 629 , 765 , 721 , 373 , 533 , 634 , 773 , 8988 
1700 DATA 721,534,531,632,774,520,806, 
374 , 304 , 859 , 299 , 371 , 698 , 7 , 358 , 7788 
1850 DATA 875,422,870,538,517,136,748, 
808 , 560 , 306 , 609 , 308 , 577 , 435 , 371 , 8872 
2888 DATA 46,355,664,188,686,243,882,6 
85 , 494 , 866 , 44 , 197 , 319 , 261 , 788 , 6478 
2150 DATA 540,286,311,288,544,620,174, 
296 , 533 , 798 , 659 , 668 , 794 , 290 , 541 , 7342 
2380 DATA 655,664,841,793,847,899,826, 
143 , 375 , 121 , 779 , 603 , 491 , 574 , 552 , 9163 
5110 DATA 884,793,483,818,500,869,380, 
92 , 515 , 797 , 746 , 633 , 901 , 861 , 887 , 10159 
5260 DATA 528,960,684,124,577,537,118, 
101 , 548 , 62 , 873 , 770 , 798 , 72 , 780 , 7532 
5410 DATA 383,25,850,546,284,558,129,7 
62 , 567 , 748 , 456 , 699 , 695 , 436 , 276 , 7414 
5560 DATA 497,272,730,549,125,144,534, 
2851 



188 DATA 904,560,80,146,697,763,734,95 
9,150,252,123,924,966,769,282,8309 
250 DATA 493,425,730,769,721,549,93,37 
88 



Listing 3. 



MAKE BOOT TAPE FILE 



300 REM LOADER PROGRAM TO CREAT A BOOT 

TAPE 
390 5TSIZE=641 
1950 REM 
1980 GRAPHICS 17:PRIHT S6:PRINT «6;" R 

EADY YOUR "IPRINT tt6;" CA55ETTE" 

1990 PRINT «6: PRINT tt6j" PRESS SaEEEl" 

:PRINT it6;"' TO COMTIMUE" 

2000 PRINT tie: PRINT »6;" A BOOT TAPE": 

PRINT tt6;" HILL BE MADE" 

2010 REM 

2020 REM 

2030 CLOSE tJ2:0PEN a2,8,128,"C" 

2050 REM 

2060 AS=A5f7> 

2070 ? tt2;A5 

2080 REM 

2100 GRAPHICS 17:PRINT tt6:PRINT a6;" T 

HE BOOT TAPE ":PRIHT tt6;" IS MADE" 

4980 DATA 255,255,8,46,20,46,0,5,236,4 

5,628 

4990 DATA 0,46,169,60,141,2,211,169,11 

3,133,691 

5080 DATA 10,169,228,24,96,234,160,34, 

185,25,400 

5600 DATA 234,0,0,0,0,0,0,0,0,0,961 

5605 REM 

5610 REM « 641 BVTES 



Listing 2. 

100 REM PROGRAM TO CHECK DATA 
110 REM FOR PRINTER DRIVER MAKER 
120 REM 

MELKER 



SJ6;"(g]IigaH3MMi3' 



130 REM BY CD, 
140 SIZE=0 
150 GRAPHICS l; 
160 TRAP 280 
170 LINE=5800 
180 FOR K=l TO 10 
190 SIZE=5IZE+1 
200 READ BYTE 
210 TOTAL=TOTAL+BYTE 

220 IF T0TAL>999 THEM TOTAL=TOTAL-1O00 
230 NEKT H 
240 READ CHKSUM 

250 IF TOTALOCHKSUM THEN GRAPHICS 0:? 
"DATA ERROR ? "; "LINE = "J LINE J " TOTALS 
": TOTAL:? "CHECKSUM=" J CHKSUM: END 
260 LINE::LINE+10 
270 GOTO 180 

280 IF PEEK<1953=6 THEN ? tt6;"DATA OK! 
":PRINT «6;"PLEASE WAIT":PRINT tt6;"DAT 
A LISTED TO":PRINT tt6 ; "D : DATA . LSI" 
285 GOTO 310 

290 ? "DATA ERR0R:"JPEEKC195) :END 
310 LIST "D:DATft.LST", 5000, 6000 



CHECKSUM DATA. 

(see page 24} 

300 DATA 23,974,367,230,506,685,278,27 
9,706,282,669,432,285,119,812,6647 
4990 DATA 958,163,647,311,534,2613 



Listing 4. 
Assembly listing. 



(PROQRAM TO INPUT PRINTER C0DE3 

lATSRIWRITER AND NON-ATARI PRINTERS 

iU3E WITH MODE II OF ATARI WRITER 

I 

(BY CD. WELKER 

I 

I EQUATES 

I 



FROM 
TO 

HANTAG 
LOMEM 



»CE 

*031A 

»B2E7 



> ZERO PAGE ADDRESS 
I DEDICATED TQ USERS 
JHANDLR ADD TABLE 



(OFFSET TO BUMP LOMEM 



LENGTH 
L3BLEN 
MSBLEN 
WRITE 



PRDQEND-BEQIN 

<LENQTH 

>LENQTH 
TABLE-H3 (INDIR JMP 03 
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m 



> 

> 

r— 
O 

a 

o 
o 

C 



a 



I 

IMAKE «N ftRTIFlCIAL J3R WITHIN 
I THE CODE BY USINB THE 3TACK 
I AND RT3 TO BET BACK TO UNLINE 

OFFSET - A7-BE0IN 

LSBQFF - C <QFFaET]-l 

MSBOFF - >OFFSET 

I 

(ARTIFICIAL JSR FOR 8T0PUL 

I 

I THE PRINTER ADDRESS TABLE: 

I 

1 TABLE +1,2 OPEN ROUTINE -I 

I TABLE +3,4 CLOSE ROUTINE -1 

ITABLE +S,i READ (NOT USED) 

ITABLE +7,8 WRITE (TO ULINE-1) 

ITABLE +9, IB DEVICE STATUS-l 

(TABLE +11,12 NOT USED 

ITABLE +13,14,13 JMP INITIAL 

ITABLE +14,17 WRITE-1 0. 3YSTM 

I 

(USE BOTTOM OF STACK FOR THE 

IDEVICE TABLE ♦»• NOT QOOD PRACTICE 

(BUT I NEED A FIXED TABLE FOR 

(RELOCATABLE CODE 



TABLE 




*010t 


TEMP2 




TABLE+19 


TEMP 




TABLE+21 


FLASIB 




TABLE+23 


FLAB2 




TABLE+23 


FLQSUB 




TABLE+27 


FLSSUP 




TABLE+29 


MEMLO 




TABLE+33 


ULFLAB 
1 




TABLE+33 



»- »2Eee 
( 

(MEMORY »2Ea0 IS A HISH TEMPORARY MEMORY 

(LOCATION. THE PRDSRAM WILL RELOCATE ITSELF 

(TO LOMEM AFTER LOADINB. 

( 

IPRD8RAM TO READ THE HANDLER ADD TABLE 

(FOR THE PRINT LOCATION AND TO AUTOMATICALLY 

I PUT THE CODINB INTO THE PROBRAM FOR THE 

(VARIOUS ADDRESSES. THIS 13 TO ENABLE THE 

(UNDERLINER PROBRAM TO BE COMPATIBLE WITH 

(VARIOUS OPERATING SYSTEMS. THIS REQUIRES 

(SELF MODIFINQ CODE. 

( 

(READ HANDLER SEARCH FOR "P" 

( 

( 

START LDY #34 

LOOPl LDA HANTAB-l.Y [SEARCH TABLE 
CMP»'P (ISIT"P" 
BEO PLOC (YES. SKIP REST 
DEY (NO SET NEXT ONE 

BNE LOOPl (END OF TABLET NO. 

( 

(STORE THE OS ADDRESS IN THE 

(HANDLER ADDRESS TABLE FOR P 



PLOC STY TEMP2 (HOLD Y FOR U3E LATER 
SEC (QET READY TO -1 

LDA HANTAB.Y (QET LOW BYTE 
SBC ttl (STORE ADD -1 
STA FROM I ZERO PASE LO BYTE 
INY (GET HI BYTE 

LDA HANTAB.Y (GET HI BYTE 
STA FROM+l (ZERO PAGE HI 
I 

(READ THE ADDRESSES IN HANDLER ENTRY 
(POINT TABLE POINTED TO BY "p" IN HANDLER 
(ADDRESS TABLE. NOTE THESE ARE THE 
(ADDRE33ES-1 OF THE ROUTINES FOR THE 
(PRINTER FUNCTIONS: OPEN, CLOSE, ETC. 
( 
(SET UP MOVE TO TABLE 

I 

I 



LDA • <TABLE-1 ( LSB TABLE 

STA TO 

LDA » >TABLE-1 (MSB TABLE 

STA TQ+1 

LDY »13 IDO 13 BYTES 

LD0P2 LDA (FRQMl.Y 

STA (TO) ,Y 

DEY 

BNE L00P2 (BET THE NEXT ONE 
I 
I READ LOMEM AND STORE 

LDA LOMEM 

STA MEMLO 

LDA LOMEH+l 

STA MEMLO+1 
I 

(MODIFY HANDLER ADDRESS TABLE 

(TO POINT TO TABLE OF VECTORS 

( 

( 



LDY TEMP2 

LDA • <TABLE 

STA HANTAB,Y 

INY 

LDA • >TABLE 

STA HANTAB.Y 

(MOVE WRITE ADDRESS TO OS FROM 
ITABLE 7,8 TO TABLE 16.17 
lADD ONE TO LSB FOR RIGHT JMP 



CLC 

LDA TABLE+6 

ADC <»1 

STA TABLE+16 

LDA TABLE+7 

ADC »e 

STA TABLE+17 

{CHANGE WRITE ADDRESS IN TABLE 
I TO POINT TO THE UNDERLINE CODE 
I AT ADDRESS-PRESENT LOMEM-1 
I STORED IN MEMLO 
i 

LDA MEMLO I LSB OF LOMEM 

SBC •! ISUBTRACT 

STA TABLE+6 (POINTER LSB 

LDA MEMLO+1 (MSB OF LOMEM 

STA TABLE+7 I MSB OF POINTER 

( INSERT JMP COMMAND TO 
(TABLE AT TABLE + 13 

' LDA •«4C (JMP WRITE 

STA TABLE+15 

(BUMP LOMEM UP TO PROTECT PROGRAM 



LDA VLSBLEN 

STA FLA81B 

LDA VMSBLEN 

STA FLABlB+t 

LDA FLAGIB 
ADC MEMLO 
STA LOMEM 
LDA MEMLO+1 
ADC FLABlB+l 
STA LDMEM+1 

INQW ZERO THE FLA83 
I 

LDA tta 

STA FLAQ2 

STA FLAS2+1 

STA FLAGIB 

STA FLABlB+1 

STA TEMP2 

STA TEMP2+1 
I 

(MOVE CODE TO LOMEM 
( 

' LDA t <BEBIN (START ULCODE 

STA FROM 
LDA # >BEBIN 
STA FROM+l 

LDA MEMLO [LSB LOMEM 
STA TO 

LDA MEMLO+1 I MSB LOMEM 
STA TO+l 

(NOW MOVE THE CODE 

' LDX ttMSBLEN 

LDY »e 
L00P3 LDA <FRQM),Y 

STA (TO) , Y 

DEY 

BNE LOOPS 

INC FROM+l 

INC TO+l 

DEX 

BEQ L00P3 

RTS 
( 

(CONVERT ATARI 823 CHARACTERS 
[TO PRINTER CONTROL CHARACTERS 
! 



( "\- SUBSCRIPT KEY 
(TEST FLA8 ON OR OFF 



(FLQ ON 30 TURN FUNC OFF 
[TURN FLAG ON 



I ESC SET SUBSCRIPT 



(TURN OFF SUBSCRIPT 
I TURN OFF SUBSCRIPT 



BEQ CONTSTEP ( 2 HOPS TO CONTROL 
AS LDA TEMP | NO 

CMP tteF ICHK IF START UL CHAR 

BEO ULSTER (TWO BRANCHES UNLINE 

CMP »*9E (NO CHK IF STOP UL 

BEQ STULSTEP ( 2H0PS TO STOP UL 

CMP StSC 

BNE A3 

LDA FLGSUB 

CMP •! 

BEQ Bl 

LDA Vl 

STA FLGSUB 

CPY **IB 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 
Bl LDA »0 

STA FLQSUB 

CPY lltlB 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 
A3 CMP »»3E 

BNE A4 

LDA FLBSUP 

CMP •! 

BEQ B2 

LDA •! 

STA FLQ8UP 

CPY «*1B 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 
I 

(STEPPING STONES FOR LONG BRANCH 
( 

CLC 

BCC B2 
CONTSTEP BEQ CONTROL 
ULSTER BEO UNLHOP 




I"*- 3UPERSCRT KEY 
(TEST FLAG ON OR OFF 



IFL8 ON SO TURN FUNC OFF 
(TURN FLAG ON 



(ESC SET SUPERSCRIPT 



n 

I 

R 



STA TEMP 

CMP •»1B 

BNE TESTFB 

LDA »1 

STA FLAGIB 

LDA TEMP 

JMP WRITE 

LDA FLAB IB 

CMP »l 



[STORE CHAR 
[CHECK IF CONTROL 
(WAS PREVIOUS »1B 
(CHAR 13 »Bl THE ESC 
[CHAR SO SET FLABIB 

(PRINT ESC CHAR 
[•IB LAST 7 



STULSTEP BEO STPHDP 

B2 LDA »e 

STA FLG8UP 

CPY IttlB 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

A4 CMP ••3B 
BNE B3 
LDA tl 
STA ULFLAG 
LDA »e 
BEQ UNLHOP 

B3 CMP »«3D 
BNE A3 
LDA ttS 
STA ULFLAB 
BEQ STPHOP 

AS CMP tt*20 
BNE A6 
JMP WRITE 



( THREE HOPS 
(THREE HOPS 
(TURN OFF SUPSCRIPT 

(TURN OFF SUPERSCRIPT 



|"C" UL BLANKS ALSO 

(SET ULFLAQ »0N» 

■FORCE BRANCH 

lUL ALL 

I "I" STOP UL ALL 

I RESET ULFLAB •OFF* 

[STOP UL ALL 
[MARBIN PRINT NO UL 
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for the ATARI 800 or XL 



Cut your programming time from hours to seconds, and tiave 33 
direct mode commends and functions. All at your fingertips and 
all mode easy by the MONKEY WRENCH II. 

The MONKEY WRENCH II plugs easily into the cartridge slot of your 
ATARIand works with the ATARI BASIC tOQ O*^ 

Order your MONKEY WRENCH II today and enjoy the v ^7.7 
conveniences of these 33 features; 



Line numbering 

Renumbering basic line numbers 

Deletion of line numbers 

Variable and current value 

display 

Location of every string 

occurrence 

Siring exchange 

Move lines 

Copy lines 

Up and down scrolling of 

basic programs 



Special line formats and 
page numbering 
Disk directory display 
Margins change 
Home key functions 
Cursor exchange 
Uppercase lock 
Hex conversion 
Decimal conversion 
Machine language monitor 
DOS functions 
Function keys 



KISS^ 



for your Atari 800, 
600XLor800XL 

A new, simpler, more powerful 

Word Formatter/ Processor for beginners. Only 14.95 



K CO ILO. O 

a. oo q: 
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« r^ tn ZK o 
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^^ Color the Shapes 

continued from page 40 



FOR J=BOT TO TOP+9 DO 
IF R(J]=N THEN 
BtJ3=C0L0R 
FILLER C J) 
FI 
DD 
RETURN 

PROC IHITtJ 

BYTE K,J,M,N,C 

ZER0(PLAYER,28) 

ZERO (6,99} 

ZER0tU5ED,6e) 

PUT 41253 

PRIHTEI"! OR 2 PLflVERS?") 

PLflVNUM^IHPUTBCJ 

PRIHTEf'WHflT 15 VOUR HAME?"} 

INPUTS tAJ 

FOR K=l TO AC03 DO 

PLflVERtK}=fltK3 
OD 
IF PLAVNUM=2 THEN 

PRIHTEfNAME OF 2ND PLAYER?"} 

INPUTS <A) 

FOR K=l TO A(0) DO 
PLAYER tK+10>=AtKJ 

DD 
FI 

PUT {1253 

PRINT fUSE A KOALA PAD {Y/NJ?"3 
CFLAG=0 
INPUTS tA3 
IF AC1}='Y THEN 

CFLAG^l 
FI 

PRINTEf"FILL SOME SHAPES IN?"} 
INPUTS (A3 
IF A(1)<>'Y THEN 

RETURN 
FI 

PUT (125} 

PRIHTE("HOW MANY SHAPES, UP TO 5?"} 
J=INPUTB(} 
jr=MOD 6 
FOR K=i TO J DO 

DO 

M=RAND(C0UNT-1}+1 
UNTIL USED(M3=0 

DD 

N=M 

DO 

Nr=+1 

UNTIL R(N3=M 

OD 

DO 

C-RAND(4}+2 

UNTIL G00D_C0L0R(N,C3=1 

OD 

COLOR:=C 

FILL_IN(N3 

USED(M3=1 
OD 
RETURN 

BYTE FUNC SGN(BYTE I, J} 
IF I=J THEN 

RETURN (03 
ELSEIF I>J THEN 

RETURN(-13 
FI 
RETURN (13 

PROC M0VE(} 
BYTE Q,DEL 
CARD K 
IF OLDXOK THEN 

0=0LDK 

DEL=SGN(OLDX,K} 



WHILE QOM DO 

PMM0UE(1,0,0LDV) 
(Jrr + DEL 
OD 

OLDK=X 

FOR K=l TO 2800 DO 
OD 
FI 

IF OLDYOY THEN 
0=OLDY 

DEL=SGN(0LDY,Y3 
WHILE OOY do 
PMM0yE(l,K,(l3 
Q==+DEL 
OD 

OLDY=Y 
FI 
RETURN 

BYTE FUNC TRIGGER (3 
IF CFLAG^l THEN 

IF PEEK (6363=0 OR PEEK (6373=0 THEN 
RETURN (03 

FI 
ELSE 

IF STRIG(03=0 THEN 
RETURN(03 

FI 
FI 
RETURN (13 

BYTE FUNC ABS (BYTE A,B} 
IF A>B THEN 

RETURN (A-B3 
FI 
RETURN(B-A3 

BYTE FUNC JOYSTICK (3 

BYTE P,X1 

IF CFLAG=1 THEN 

J<1=PEEK(6243 

Y1=PEEK(6253 

IF Hl<5 OR Yl<5 THEN 
RETURN (03 

FI 

H1=56+(K1/283«16 

Y1=36+(Y1/283»16 

IF ABS(K1,0LDK3 <5 THEN 
RETURN (03 

ELSEIF ABS(Y1,0LDY3<5 THEN 
RETURN (03 

FI 

H=X1 

Y=Y1 

RETURN (13 
FI 

P=STICK(83 
IF P=15 THEN 

RETURN (83 
FI 
IF P=ll AND 0LDX>e8 THEN 

X=0LDX-16 

RETURNd} 
ELSEIF P=7 AND 0LDX<188 THEN 

H=0LDXHH6 

RETURN (13 
ELSEIF Pi:14 AND 0LDY>51 THEN 

Y=0LDY-16 

RETURN (13 
ELSEIF P=13 AND 0LDY<152 THEN 

Y=:0LDYHH6 

RETURN(13 
FI 
RETURN (03 

BYTE FUNC COMPLETE (3 

BYTE J 

FOR J=l TO COUNT-1 DO 
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IF U5ED{J)=Q THEN 
RETURN (0) 

FI 
OD 
RETURN (1) 

PROC NfiMEO 

BYTE J 

PUTtl253 

FOR J=TURN«10+1 TO TURN»18+ie DO 

PUTtPLAYERCJJJ 

IF PLflVERCJ+lJ=8 THEN 
EKIT 

FI 
OD 

PRINTEt"'5 TURN"} 
RETURN 

PROC COLOR-INCBVTE SP0T3 

BYTE K 

CARD Ki 

IF BCSP0TJO8 THES 

00 

UNTIL PICK-COLOR C3<>8 

OD 

MOVE (} 

IF QUIT=1 THEN 
RETURN 

FI 

K=OLDX 

V=OLDY 

MOVE (3 

RETURN 
FI 
IF GOOD-COLOR CSPOT,COLJ=0 THEN 

BEEPO 

PRINT ("'YOU CANNOT USE THAT"} 

PRINTE{" COLOR THERE"} 

BEEPC} 

RETURN 
FI 

COLORrCOL 
FILL-IN tSPOT} 
IF PLAYNUM=2 THEN 

TURN==! 1 
FI 

NAME(} 

FOR Kl=l TO 2080 DO 
OD 
RETURN 

PROC SHAPES () 
BYTE A, SPOT, J 
DO 

TITLE C} 

GRAPHICS (8) 

0UIT=8 

PMGRAPHICSCl) 

SETUP {} 

POKE {785,221 

P0KEC623,ie8) 

PMCLEARCl) 

MAKEPM(STAR,14,1,2,156,126} 

K=56 

Y=36 

0LDK=8 

0LDY=8 

MOVE (} 

COLOR-3 

C0L=3 

GRIDO 

TURN=e 

SEARCH () 

CHECK-BOARD (} 

INITt} 

NAMEC} 

DO 



IF TRIGGER (J =8 THEN 

COLOR-IN tSPOT} 
FI 
IF JOYSTICK 0=1 THEN 

MOUEO 
FI ' 

SP0T={X-38}/16+18JtCY-36}/16 
UNTIL COMPLETE t}=l OR «UIT=1 
OD 
IF COMPLETE (}=1 THEN 

FOR J=TURH«18+1 TO TURN»18+18 DO 
PUT {PLAYER (J}} 
IF PLAYER {J+1)=0 THEN 

EKIT 
FI 
OD 

PRINTE{" IS THE WINNER"} 
FI 

PRINTE{"PLAY AGAIN?"} 
A=INPUTB{} 
UNTIL A='N 
OD 
RETURN 



Atari Products From Cal Com 

Introducing 

"The" Operating System For The XL/XE 

Line ot Personal Computers 

CAL COM'S OCS 

Cal Corn's own operating system available witti David Young's Omniview 80. Tills 
combination provides everyttiing that the Atari user could hope for, 80 column 
word and doto processing, compatabilitv and a low price. Other options with 
this system are the ability to select basic, not de-select on power up. Also the 
ability to move the COOO page of Rom into Rom. giving you and additional 4K 
of memory with Visicalc, Other functions include the use of the "Help" key as the 
scroll control instead of Cntrt-1. 

Cal Com's (OCS) $ 39.95 

Omniview XLTXE $ 59.95 

Also Available for the "XE" line of personal computers. 

Atari 130XE $149.95 

Atari 520ST $599.99 

3.5 Inch 500K Drives $ Call 

Atari 1050 Disl< Drive $165.00 

Happy 1050 Drive (Complete) $349.95 

Happy 810 Enhancement $165.00 

Happy 1050 Enhancement $165.00 

Indus GT Drive (Atari) $225.00 

Atari 850 Interface $109.95 

US Doubler for 1050 Drive $ 56.00 

Star SG10 Printer $239.00 

Panasonic 1091 Printer $295.00 

Legend 880 Printer $279.00 

Atari 1020 Color Printer $ 59.95 

MPP 1000E tvlodem $109.95 

Hayes 1200 tvlodem $449.00 

Volksmodem 12 $189.95 

CAL COM 

5295 Cameron Drive, #505 P.O. Box 2601 

Buena Park, CA 90621 Silver Springs, MD 20902 

(714) 994-2678 (301) 681-9121 

VISA/MC Accepted (Add 4%) or send Cashier's Check or ivtoney Order and ADD 
$5.00 per order for shipping. California Residents ADD 6% Sales Tax. PRICES ARE 
SUBJECT TO CHANGE WITHOUT NOTICE. 
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LOTSABYTES CONTINUES THE WAR ! 

WAR on high prices ! Were going lo put an end to tine software price ripofC And YOU 
can help ' Just keep those orders coming while you continue to enjoy the quality, 
quantity, selection and low prices that you deserve. Our National Public Domain Copy 
Service will save you time, tedious work, and money And our exclusive distribution ol 
sharply discounted commercial programs will bring you some of the fin est programs for 
the lowest possible price, usually 50% and more off retail! You continue to get FREE 
BONUSES with each purchase ol three or more disks 



PUBLIC DOMAIN SOFTWARE 



#1 

GAMES 

Two lull disk 

sides packed 

with over 

25 games 

including some 

Arcade quality. 

$7.95 



#2 
UTILITIES 

25 powerful 

programs to 

help you get 

the most out of 

your Atari 

computer. 

$7.95 



#3 
AMS MUSIC 

25 Advanced 
l\/lusicsystem 
files including 
a new Player 

program. 

2 sides. 
$7.95 



#4 
GAMES 

All different ! 

14 m"ore 
better games 

on 2 disk 

sides. Some 

Arcade types. 

$7.95 



#5 
EDUCATION 

Loaded with 

28 programs 

on 2 disk sides 

Fun learning 

for the whole 

family. 

$7.95 



#6 
AMS MUSIC 

25 all-time 

favorites 

with a 

Player 

program. 

Two sides. 

$7.95 



#7 
GAMES 

Two disk sides 
packed with 

14 more 
great games. 

Some 

Arcade types. 

$7.95 



#8 
UTILITIES 

17 more 
power-packed 

utilities to 

help unleash 

full potential 

of your Atari. 

$7.95 



#9 
GAMES 

Two full sides 

filled with 

17 of the 

best and 

most recent. 

Some Arcade. 

$7.95 



#10 
UTILITIES 

A new 

assortment 

of 17 great 

and powerful 

programs 

Don't miss it ' 

$7.95 



#11 
GAMES 

NEW 
Our newest. 

2 sides 

filled with 

great games. 

$7.95 



#12 
ADVENTURES 

NEW! 
2 full disk 

sides 
filled with 

text 

adventures. 

$7.95 



#13 
EDUCATION 

NEW ! 

2 disk sides 

filled with 

something 

for 

everyone. 

$7.95 



#14 
AMS MUSIC 

NEW 

2 sides 

filled with 

great music 

and a player 

program. 

$7.95 



#15 
UTILITIES 

NEW 

Another 

assortment 

of fine 

programs. 

Not to be missed. 

$7.95 



LotsaBytes EXCLUSIVES 




ADVANCED 
MUSICSYSTEM II 

by LEE ACTOR 
Allows you to create music 
with your Atari computer! 
All new machine code. 
■ Control over pitch 

duration, envelope 

dynamic level, meter, 

tempo and key. 

* 4 independent voices 
' 5'. octaves per voice 
" Save up to 8200 notes 

* Custom DOS 
" FULL instructions 

* 24K disk 
Originally S29.95 Only $14.95 



ORIGINAL ADVENTURE 

by Bob Howell 

For all Atari computers. 

The Original 

Colossal Cave 

Adventure faithfully 

reproduced from the 

main-frames' 

This IS the one 

that launched the whole 

Adventure craze of today 

* Two mazes 

* 130 rooms 

* Deadly Dragons 

* Nasty Dwarves 

* Tenacious Troll 

* The Pirate & Ivlore! 

* 86 coded hints 

* SAVE./RESUME 
■ 40K disk or 32K tape 
Originally S24.95 




Only $14.95 



QUALITY WORD PROCESSING 

ESI WRITER! At last a brand-new Word Processor 
that has more features and is easier to use than 
anything else available for the Atari. Easy for the 
beginner to use, it asks questions and remembers 
the answers, ESI WRITER is so sophisticated that it 
has many more features we don't even have room to 
mention ! Works with ANY Atari. 

* Reads any text file * Built in Help screen 
* Very fast ' * Works with ANY printer 

* Instant top, bottom or text location 

without scrolling! 
* Every printer feature ' DISK ONLY (Any Atari) 

* Search and replace ' Block move text 
"Page eject/start " Set margins/lines etc. 

'Full lustification * Print headers etc. 

* Block delete etc. * Change video color 

* Over 50 pages of docs and tutorials 
TRUST US ON THIS ONE ' YOU WILL LOVE IT' 

Originally S49.95 LotsaBytes price $19.95 

* * FREE BONUSES * * 

Now lor each 3 disks ordered 
you may choose any 1 ol the following disks 

FREE!! 
... buy 3 - get 1, buy 6 - get 2, buy 9 get 3 ... 

a. The Atari XL TRANSLATOR DISK 
that enables XL owners to use most 
400/800 software. FREEH 

— or -- 

b. An all different AMS MUSIC disk 
with Player. FREE!! 

--or — 

c. Your choice of one ol the P.D. disks -- 
#1. #2. #3. #4. #5, #6, #7, #8. 
#9, or #10 (specify one) FREE!! 




MUSIC MAJOR! 



Learn the basics of music with this light- 
hearted but very thorough approach. 
Covering such topics as note recognition, 
key signatures, note counting, and much 
more, it is designed for use by both the 
individual student and music class. 
This program includes a thoroughly 
illustrated manual and olfers a QUIZ 
MASTER utility that allows the teacher or 
the self-taught student to create their own 
A-B-C-D type tests, with a sample quiz 
included. 
Originally $39.95 Only S14.95 



GREAT GAMES! 

SPACE GAMES: Three games lor one low 
price'. In Aliens you can't get them all and 
the pace keeps getting faster When you 
do get rid of most of them, you are left in a 
space quadrant peppered with mines. Will 
you Survive? If you do, you must 
penetrate the alien's spaceship, survive a 
Robot Attack, and get back your stolen 
cloaking' device! Interested'' 
S24. 95 lisl LotsaBytes price: $9.95 

THE BEAN MACHINE by Steve Robinson 
IS an Award Winning Arcade game that 
will drive you crazy balancing a series of 
beams while trying to get all the beans to 
roll down, without touching, all the while 
avoiding strange creatures' who drop in 
to steal the beans. It's addicting! 
S24.95 hsl LotsaBytes price: $9.95 

DIGGERBONK, another Award Winning 
game by Steve Robinson, challenges you 
to find your way through a continuously 
scrolling maze while avoiding some really 
strange creatures. Along the way you will 
need lo Bonk some of them, but watch out 
for the bombs. 
S24.95 list LotsaBytes price: $9.95 

GUESS WHAT'S COMING TO DINNER 

lets you try to manuever a snake through 7 
levels if you can keep it from starving or 
being electrocuted. Lots of surprises! One 
or two players 
S24.95 list LotsaBytes price: $9.95 



CREATIVE LEARNING 
ADVENTURES 

Ages 4 to 10 — D/s* only 

1. Hours ol educational fun playing 3 
exciting creative adventures with a 
friendly alien learning about our planet 
Earth. Hand.-eye co-ordination, drawing, 
and music skills are emphasized. 
S24.95 lisl LotsaBytes price: $12.95 

2. Four challenging learning games that 
are the favorites of our friendly alien. 
Helps your child to develop logical 
reasoning ability. 

$24.94 list LotsaBytes price: $12.95 

3. These 3 Fun-Day learning games will 
help with intellectual development, 
hand/eye co-ordination, logic, spatial, 
and analytical abilities. 

S24.95 list LotsaBytes price: $12.95 



LotsaBytes 



Full 10D"i. Replacement guaranlee.Any disk lound to be detectiwe will be replaced Iree and we will also refund 
your return postage. All orders shipped by First Class U.S. Mall, Add SI .95 shipping and handling lor 1 to 5 disks. 
Add S2.95 (or 6 to 12 disks. California residents add 6'. sales lax. Outside ol U.SA. and Canada add 15%,. U.S. 
Funds only. We accept checks or Money Orders. Sorry, no COD or Charge Cards. Allow three weeks lor personal 
checks to clear. 
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DRAGONRIDERS OF PERN 

EPYX 

1043 Kiel Court 

Sunnyvale, CA 94089 

48K Cassette or Disk $39.95 

by Randy Mumford 



Dragonriders of Pern from Epyx is 
the official computer game based on tfie 
popular series of fantasy novels by Anne 
McCaffrey. It has eight screens and two 
different styles of play. 

The first three pages of the Riders in- 
struction manual provide a brief synop- 
sis of the novels. This not only sparks 
your interest in the game, but also makes 
you eager to read the books. The remain- 
der of the thirteen-page manual guides 
you through the game setup, strategy 
and threadfighting sequences. Instruc- 
tions are quite comprehensive, except for 
one item. Going on search for new Drag- 
onriders, while mentioned in the glos- 
sary, was never explained in the manual. 

Riders will accommodate four play- 
ers represented by "weyrs" (groups of 
dragons and riders), with the computer 
controlling two additional weyrs. One 
nice feature allows you to choose be- 
tween the standard game [both strate- 
gy and action phases), strategy only, or 
threadfighting practice. Speed is select- 
able (slow, average and fast) and affects 
both phases of the game. Game length 
is also selectable, from one to ninety- 
nine turns. 

In the negotiation/intrigue phase, you 
must make allies of Holds and Crafthalls 
to gain help in your fight against the in- 
festation of a life-form called Thread, 
from a wandering red planet that passes 
near Pern on a regular cycle. You can 
call up character profiles of Lord Holders 
and Craftsmasters, to aid in determining 
how to deal with each one. 

This phase can be played with joy- 
sticks, paddles or keyboard ... a handy 
feature if you have less than four joy- 
sticks. 

The first screen (Events] displays the 
character profiles when they're called 
up, events taking place or scheduled, 
and a list of all weyrs (players) with the 



number of wings of dragons available to 
each. 

The Attitude screen lets you choose 
from five negotiating attitudes (from 
pleading through amiable to threaten- 
ing) for your dealings with others. 
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Thread is falling: 8ALAN HOLD 
Bound to: HIGH HCH5 MEYR 
Who is sendiiiq dragons? 



Dragonriders of Pern. 

The pace is relatively fast, even on the 
slow setting, but, fortunately, there is a 
pause feature (CTRL-P) when you're on 
the events screen. The victory status 
screen at the end of the sequence shows 
points acquired for each player. The 
game is over when one player gains 
twenty points, when twenty Holds are 
Thread infested, or when the chosen 
number of turns is completed. 

In the threadfighting phase, all play- 
ers must use a joystick in port 1. The 
level of difficulty increases as Riders 
progresses, and additional difficulty is 
provided for advanced players by a se- 
lectable depth of play. 

These depths can be chosen from one 
to three, and are represented by three 
dimensions on the screen. A typical 
view of Pern's countryside is displayed, 
with falling Thread and a flying dragon. 

The method used for dragon move- 
ment is awkward. The dragon is moved 
upward and downward by forward or 
backward motion of the joystick, and it 



is rotated in steps of one-quarter turn by 
left or right movement. Facing the drag- 
on away from or toward you allows him 
to fly into the other dimensions of the 
screen, if multiple depths are chosen. 

Pressing the fire button causes the 
dragon to breathe flame, burning the 
Thread from the sky before it reaches 
the ground. Depressing the SPACE BAR 
allows you to go "between," to escape 
Thread that is about to burn you or to 
cool burns already obtained. 

I've never cared for the "bang the 
SPACE BAR" idea. Not only does it re- 
quire a third hand, but it is potentially 
damaging to the keyboard with overly 
enthusiastic players. 

When the threadfighting phase is fin- 
ished, a results screen is displayed, in- 
dicating the number of dragons killed 
or wounded and the number of Thread 
that reached the ground in each Hold. 
The save game feature can be used at 
this point by pressing CTRL-S. It would 
be far more convenient if it were avail- 
able at any point during game play. 

Dragonriders of Pern is an engross- 
ing game, though a little hectic even 
with the pause feature. Dragon move- 
ment is somewhat difficult at first, but 
gets easier with practice. The alternat- 
ing strategy and action sequences make 
for an interesting combination and an 
enjoyable game. D 

Randy Mumford has worked as an 
Eieclrical Engineer for fourteen years. 
Since purchasing an Atari 800 two and 
one-half years ago, his interests have ex- 
panded to include adventure gaming, 
telecommunications, M'ord processing, 
and database and spreadsheet usage. 
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READER SERVICE # 



ADVERTISER 



116 Allen Macroware 34 

132 Alpha Systems 63 

129 American TV 61 

— ANALOG Publishing 2, 58, IFC 

111 Arrays Inc 22 

101 Astra Systems 5 

119 At-A-Glance 50 

— Batteries Included OBC 

138 Cal Com 89 

140 Carina Software 92 

113 C.A.R Software 30 

104 CDY Consulting 10 

141 Centurian Enterprises 92 

110 Computability 21 

137 Computer Creations 84 

125 Computer Games Plus 53 

115 Computer Palace/Royal Software 32 

112 Computer Software Services 27 

109 Consumer Electronics Store 20 

126 Eastern House 87 

130 Electronic One 62- 

107 Elfin Software 20 

143 Games Computers Play IBC 



READER SERVICE # 



ADVERTISER 



142 G.T. Enterprises 92 

136 GTA, Inc 78 

103 Happy Computers/San Jose Computers 8 

122 ICD-Spartan 58 

131 Kyan Software 63 

139 Lotsa Bytes 90 

135 Lyco Computers 75 

118 Misty Mountain Software 50 

120 MPS 50 

123 New Horizons Software 53 

105 Programmers Workshop 12 

133 Protecto 64, 65, 66, 67 

121 Rainbow Star 50 

134 Rocky Mountain Atari Service 69 

— Senecom 50 

106 Software Discounters 14 

124 Southern Software 53 

145 Sulcer 7 

108 Turbo-4th 20 

102 Unlimited Software 7 

128 Wedgwood Rentals 60 

127 White House Computers 59 

114 Xlent Software 31 
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ULTRA-MON 1024 

Monitor / Unprotector 



A program monitor for all ATART'^ computers. 

Now there is a program for the beginning and Ihe 
serious programmer. Uitra-mon has the functions 
necessary for debugging assembly language pro- 
grams and a few other functions to make it even eas- 
ier It can also be used to load in other binary 
programs, so you can see fiow the experts do it. If 
you have programming knowledge, use Ultra-mon to 
backup your favorite games into binary file format. 
Ultra-mon has the ability to boot an autoboot disk and 
display init and run addresses. Then, by using the 
binary save command, you can save the file into a 
condensed binary file. By doing this, you can fit be- 
tween 3 to 20 games on one disk. Here are some of 
the functions that the monitor supports, . 

• Boot disk (display RUN and INIT addresses). 

• Load binary file (display RUN and INIT 
addresses and can MAP the file in memory). 

• Save memory as binary file (can save 
multiple blocks of memory), 

• Index disk files. 

• No DOS needed to perform disk 1/0. 

• Disassemble memory. 

• Display memory. 

• Change memory. 

• rvlove blocks of memory, 

• Go at address, 

• Can break out of most programs, 

• Can work in conjunction with cartridges, 

• Super fast listing speed, 

• Relocatable in 11 different locations of memory 

• No hardware modifications needed, 

• Many other functions, 

(48K required). Send $24.95 to. . . 



Carina Software Systems 

12390 57th Road North 
Royal Palm Beach. FL 33411 



Add $2,00 shipping and handling, 
Florida residents add 5% sales tax. 
Allow 2-4 weeks for delivery. 



ATARI HARDWARE / SOFTWARE 



810 Disk Drives 

810 Disk Drive Kits 

810 Happy Enhancement 
1050 Happy Enhancement 

810 Analog Upgrade Kit 

850 Interface Module 
Atari 800 Computer Kits 

48K Electronics 
Atari 400 Computer Kit 
800 OS lOK ROM 'B' Board 
CPU 'GTIA' Board 
16K Memory Board 
400/800/810/850 Power Adapter 
I/O Data Cable, 6' 
13 pin I/O Plug Kit (cable end) 
13 pin I/O Jack (Port) 
Atari Joystick (standard) 
Atari Paddles (set) 
All types of other boards and parts 



Atari Microsoft Basic 11 
Cartridge w/manual 
Atari Pilot, Cart, w/manual 
Atari Basic Cartridge Kit 
Atari Assembler/Editor Cart. Kit 



$265 


(7) 


$240 


(7) 


$185 


(4) 


$185 


(4) 


$ 37 


(3) 


$125 


(7) 


$100 


(7) 


$ 47 


(5) 


$ 17 


(2) 


$ 18 


(2) 


$ 19 


(2) 


$ 15 


(3) 


$ 12 


(2) 


$ 3 


(I) 


$ 3 


(1) 


$ 5 


(2) 


$ 8 


(2) 


are available! 


$ 27 


(3) 


$ 22 


(3) 


$ 15 


(3) 


$ 15 


(3) 



Ordering Information: All boards listed are complete 
with all parts and are fully guaranteed. UPS shipping 

charges are shown in brackets next to the price. Ship- 
ping charges must be included with all orders. Orders 
may be placed by phone using your VISA or Master- 
Card, or you may mail your order in with a check or 
money order. Hurry, some supplies are limited, 

CALL OR WRITE FOR FREE 
CATALOG!!! 



CENTURIAN ENTERPRISES 

(805) 544-6616 

Post Office Box 3233 

San Luis Obispo, CA 93403-3233 



Sales Office: 890 Monterey Street 
Suite B, SLO, CA 93401 
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COMPUTEP^ISKETTES 




R 1 S H S 



DS/DD 
^ 99 



SS/DD 
90 



$ 



LIFETIME GUARANTEE 

Individually Tesled 100"o Error Free 

Reinlorced Hub Rings Write Protecl labs 

Color ID Labels and Tyvec Envelopes Included 



Add $3 00 stiipping per 1 00 or (ewer diskelles 
WA Residents add 8% sales tax 



PHONE ORDens 

coo r^,i 



MAIL ORt)ERS 



GT ENTERPRISES 

2400-SW 325lh Street, Federal Way, WA 98023 

24 HOUR PHONE (206) 838-5107 
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THE CREATION 



/ 



OF A 



NEW BREED 





The G€P Network: More Oommmiications, 
More Graphics, LESS Hassle! 



he GCP Citf. 

The entry to 
worlds of adventure 
and challenge. 



Choose your 
favorite and match 
wits with others. 



of space: 

Explore and conquer 
your way to 
galactic supremacy. 






FEATURES: Joystick-driven; no commands to learn! Private mail, bulletin boards^ programTlbrary, file 
transfers, automatic logons. User Group support, local phone call access from most cities, no network 
surcharge. SYSTEM REQUIREMENTS: 48K Atari, 1 disk drive, modem. 

For more information contact: 



E3CF 



rcTJyiski 



COMPUTERS 
PLAY. INC. " 

112 East Market Street, York, PA 17401/717-848-2660 
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A SENSAnONAL 

STATISTICAL 

ANALYSIS 

AND GRAPHICS 

CHARTING 

SOFTWARE 

PACKAGE! 



Give your data maximum impact - 
analyze it, grapli it and ciiart it with 
B/Grapli. Simple to learn, easy to ' 
use, and you get professional-quality 
results every time. Here's what the 
experts say: 

«. . .a powerful graph-generating 
and statistical analysis program 
... we recommend B/Graph for all 
Atari users.?? ^^^^^^^^^ 

II. . .easy to use, an excellent man- 
ual, an outstanding value. « 

Creative Computing 

a. . .the finest business graphics 
package available 7? 

S.P.A.C.E. Newsletter 

Graph up to three factors with 100 
data points each. Pie charts, 2 or 3- 
dimensional bar graphs, line and 
area graphs - just some of the many 
exciting possibilities at your com- 
mand. Plus, you can convert in- 
stantly between graph types. Other 




flexible control features include full 
screen editor, scaling, labelling, over- 
lays and automatic "slide show." 

ii. . .graph features alone make 

B/Graph a good buy. The addition of 

a sophisticated statistical package 

make it superb. ?? . ^ , 

InfoAge 

Statistical analysis functions include 
standard deviation, vaiiance, Chi- 
square, regression analysis, factor 
manipulation and much more. Plus, 
you can use B/Graph in conjunction 



B/GRftPH""' 



R ? s e H If 8 i 

Pactor 1, ll F«ctor « S Factor 3 



with VISICALr"' to perform "What 
If?" projections. 

Even with no computer experience, 
you'll easily master B/Graph's 
smooth, natural interface. The clear, 
comprehensive manual is supported 
by a complete tutorial - you'll be 
graphing in minutes! 

For sales, marketing, forecasting, ac- 
counting, management administra- 
tion, educators and students. In 
every way and for every need 

B/Graph is the idfi"' '-•-'-'— 

ing software ' 
program! Your 

data never S/J^'iAriL 

looked so good! « ; ' 



B/GRAPH: pro- 
fessional graph- 
ics/charting and 
statistics for 
Atari and Apple 
IH-/e/c. 



^/^Z^M 
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ZO Mural Street . 
Richmond Hill, Ontario 
LAB IBS CANADA 
1416)881-9941 
mlex: 06-21 -8290 



BATTERIES '^ INCLUDED 

' " • -^ 1 7875 SI(Y Park North, Suite P 

"The Energized Software Company!" '"""%sf9°27M 

WRITE TO US FOR FULL COLOUR CATALOGUE of our products for COMMODORE, ATARI, APPLE and IBM SYSTEMS MT6; 881-9816 

FOR TECHNICAL 5UPP0RT0R PRODUCT INFORMATION PLEASE PHONEMWI 881-9816 T^lex: S09-139 



1985 BSTTERIES INCLUDED. APPLE. ATARI. COMMODORE AND IBM ARE REGISTERED TRADEMARKS RESPECTIVELY OF APPLE COMPUTERS INC., ATARI INC . COMMODORE 

BUSINESS MACHINES INC.. AND IBM BUSINESS MACHINES INC 



